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.. .in Sachen Textverarbeitung mit perfektem Ausdruck 


i 

j 


in brandneues Textverarbei¬ 
tungspaket - einfach das Muss 
für den, der höchste An¬ 
sprüche an seinen Amiga stellt: 
komplett in Deutsch und 
WYSIWYG! 


Final Copy II ist nicht nur das der¬ 
zeit leistungsfähigste Textverarbei¬ 
tungspaket für den Amiga - mit allen 
Funktionen, die Sie von einer Textver¬ 
arbeitungsoftware erwarten können - 
sondern es wartet auch noch mit einer 
Reihe weiterer DTP-Funktionen auf, 
die sonst nur in professionellen DTP- 
Systemen wie z.B. auf dem Macintosh 
zu finden sind. Es sind sogar voll 
skalierbare outline-Fonts auf allen 
Amigamodellen möglich - auch mit 
Kickstart 1.3. 

Sie können mit Final Copy II die 
höchstmögliche Druckerauflösung in 
PostScript-Qualität erreichen, egal 
welchen Drucker sie benutzen. Sogar 
mit einem einfachen 9-Nadeldrucker 
ist das Ergebnis verblüffend. 



froru SoftWood. Iik. 


Vielfältige und zeitungsgleiche Spal¬ 
ten- und integrierte Zeichenfunktio¬ 
nen für Rechtecke, Pfeile und Linien 
in jedem Winkel, Ellipsen etc., sowie 
farbigen Text und andere Formatie¬ 
rungsfunktionen, lassen Ihr Doku¬ 
ment so aussehen, wie Sie es sich 
vorstellen. 

Final Copy II beinhaltet ein erwei¬ 
terbares Wörterbuch mit über 142.000 
Eintragungen, um Rechtschreibfehler 
automatisch auszuschließen. Weiter¬ 
hin ist ein Synonymwörterbuch mit 
580.000 Eintragungen inbegriffen. 

Final Copy II ist einfach zu erlernen 
und anzuwenden. Sollten Sie trotzdem 
Unterstützung zu irgend einem Prob¬ 
lem benötigen, leistet unsere Support 
hotline jedem registrierten Kunden 
der deutschen Version volle Unter¬ 
stützung. 



K ompatibel mit: 

Amiga®-A500/500+/600/600HD/1200/2000/2500/ 
3000/4000 und jedem Workbeneh IM -unterstützten 
Färb- und S/W-Grafik-Drucker. 
Systemvoraussetzung: min. 1Mb. RAM und zwei 
Diskettenlaufwerke oder eine Festplatte IA600HD 
benötigt min. 1.5Mb.), WorkBench 1.3/2.x. 

Pländlerverkauf durch: 

H.S.&Y.. ADX. Leisuresoft. Profisoft. Casaotanca. 
GTI oder direkt bei: 

amigaOberland 

In DER SCHNEITHOHL 5 • D-6242 KRONBERG 2 
TEL.: 06173/65001 • FAX: 06173/63385 


empf. VK-Preis: 299.- DM 

im gut sortierten Fachhandel 

Heitere Funktionen von Final Copy II: 

• Outline Fonts in allen Auflösungen von 4 bis 300 Punkt • Wählbare Druckqualität incl. 
PostScript®-Ausgabe und max. 4096 Farben • ARexx- Schnittstelle incl. Programm-Macros 

• Serienbriefe • Dokumentstatistik • Addition von Zahlenspalten • Text über Grafik • 
Automatischer Textfluß um Grafiken • Farbiger Text • Links, rechts, mitte und dezimale 
Tabulatoren • Absatzorientierung • Speicherbare Absatzformate • Importieren, Skalieren und 
Schneiden von IFF-, HAM- und 24Bit ILBM-Bilder • Ausrichtung an Hilfslinien • Einfügen 
und kopieren von horizontalen und vertikalen Linealen • Maße in Pica, Zoll und Millimeter • 
Frei definierbarer Zeilenabstand • Kapitälchen • Hoch- und Tiefstellen • Durchstreichen, 
einfach und doppelt unterstreichen • Darstellungsverkleinerung/-vergrößerung von 25% bis 
400% bei freier Bearbeitung • Suchen und Ersetzen • Kopieren. Ausschneiden und Einfügen • 
Clipboard-Unterstützung • Einfügen von Systemzeit und/oder -datum sowie automatisch 
durchnumerierter Seiten • Frei definierbare Seitengröße • Layout- und Titelseiten • 
Rechte/linke Seite • Gehe zu Seite oder Einfügepunkt • Seiten- und Spaltenumbruch 
einstellbar • Unterstützung von großen Monitoren • Deutsche Silbentrennung. 


European sole importor: Gordon Harwood Computers - New Street - Alfreton Derbyshire - DE55 7BP lei.: 0773 836781 
Amiga. Workbeneh und Kickstan sind eingetragene Warenzeichen der Commodore-Amiga Ine.. Macintosh der Apple Computer Ine, und PostScript der Adobe Systems Incorporated. Anzcigengesialiung von Kern Gerber. amigaOberland. 
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Jetzt funkt's im 
Karton 


D ieses Sonderheft zeigt klar, daß der Amiga im Reigen der 
»Personal Computer« ganz vorne mitspielt. Wenn man 
ihn richtig programmiert, ist mehr aus ihm rauszuholen 
als aus jedem anderen System, egal ob von »Daktari«, »Mec« 
oder irgendeinem »ET« die Rede ist. 

Allein was mit ARexx machbar ist, kann kein anderer PC der¬ 
zeit bieten. ARexx und die Programmierung des neuen Amiga 
1200 bilden daher zwei Schwerpunkte dieser Ausgabe »Faszi¬ 
nation Programmieren«. Hier erfahren Sie, wie Sie z.B. mit 
ARexx 3-D-Grafik programmieren, was man mit dem 68020er- 
Prozessor im Amiga 1200 alles machen kann, und wie Sie die 
Grafikchips der neuen Amigas ausreizen. 

Wir widmen uns aber nicht nur der neuen Amiga-Standard- 
Programmiersprache ARexx und dem Amiga 1200; auch ans 
neue OS 3.0 haben wir gedacht. So ist für alle neuen Amiga- 
Besitzer etwas dabei. 

Schade, daß Commodore immer noch viel zu wenig tut, um 
den professionellen Character des Amigas zu stützen. Im Ge¬ 
genteil - man scheint sich eher im Spiele-Sektor umzuschauen, 
wie die neuen Produktvorstellungen zeigen. Doch wir denken an¬ 
ders und regen z.B. die Entwicklung professioneller Software für 
den Amiga an. Wer die Ausgabe 1 von »Faszination Program¬ 
mieren« bereits gelesen hat, ist sicher auf die Fortsetzung unse¬ 
res großen Programmierprojekts gespannt. Mehr erfahren Sie auf 
der nächsten Seite. 

An dieser Stelle Dank an alle, die sich an dem Projekt betei¬ 
ligt haben, und auch an die, die sich noch beteiligen werden. 
Dank auch allen, die an dieser Ausgabe mitgearbeitet haben: Wie 
bei der Nummer 1 haben sich alte Amiga-Hasen kräftig ins Zeug 
gelegt, um dieses Sonderheft so rund wie möglich zu machen.. 

Viel Spaß mit der zweiten Ausgabe von »Faszination Pro¬ 
grammieren« wünscht Ihr AMIGA-Team: 

RrnrZA- & 
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■ Die M-Tec Turbosysteme A500: 

Test Kickstart: 1 - 
Test Amiga Magazin 2 

M-Tec 68020 ohne Ram: 199,- 
M-Tec 68020 mit 1 MB: 299,» 

M-Tec 68020 mit 4MB: 499,~/28,«mtl.* 
M-Tec 68030, MMU, 1MB: 499,-/28,-mtl* 
M-Tec 68030, MMU, 4MB: 699,-/30,«mtl.* 


■ A600/1200 Festplatten 
mit Software und Kabel 

bitte ertragen Sie unsere aktuellen 
Tagespreise! 

ALLES, 
AMIGA BRA 

■ Viel Speicher für den Amiga, z.B. 


M-Tec A500, 512k m. Uhr: 69,- 

M-Tec A500, 2.0 MB m. Uhr: 1 99,- 

M-Tec A600, 1.0 MB m. Uhr: 99,- 

M-Tec A500+, 1 MB: 99,- 

4MB Modul A4000: 289,- 


■ Neuheit! M-Tec Al 200 
Speichererweiterung mit 
32Bit FastRam, 

Coprozessor-Option bis 50 MHz, 
Echtzeit-Uhr, 

100% Leistungssteigerung 
möglich I 

M-Tec Al 200 ohne Ram: 169, ~ 

M-Tec A1200/4MB Ram: Tagespreise 

■ Neulll 

M-Tec Al 200/1 MB: 199,- 

M-Tec A1200/8MB: Tagespreise 

Coprozessor ab: 49,~ 

Ab August: 

M-Tec Al 200 Turbosystemel 


IM-DGP’z 


Udo Neuroth Hardware Design 

Amiga Hardware made in Germany. 

Essener 5trA, 46 236 Bottrop, Tel: 0 20 41/2 04 24 


■ Superaktuelll 

M-Tec AT-Bus Controller 

A500 intern: 149,— 

M-Tec AT-Bus Controller 

A500 extern mit Gehäuse, 

Ram-Option bis 8 MB 

mit Kickstartumschalter: 199,- 


■ M-Tec Festplattensysteme 

von 40-340 MB 
(mit Controller): 

M-Tec AT500 extern, 

120 MB: 599,-/29,-mtl. 

210 MB: 699,-/30,-mtl* 

M-Tec AT500 intern, 

40 MB: 399,- 

■ * Beachten Sie unsere zeitgemäßen 
Finanzierungsangebotet 
Die Finanzierung erfolgt über die Hausbank, der effektive 
Jahreszins beträgt immer 15,4%. 

Bestellen Sie jetzt, oder fordern Sie weitere Infos anl 
Bestell-Telefon: 

O 20 41 / 2 04 24 
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Fortsetzung: Programmierwettbewerb 


Das AMIGA-Projekt 


» 


Im ersten Sonderheft »Faszination 
Programmieren« riefen wir alle 
enthusiastischen Amiga-Pnogrammie- 
rer auf, bei unserem Wettbewerb mit¬ 
zumachen. Die Resonanz war riesig. 


von Rainer Zeitler 


D ie Idee gefiel allen: Im Amiga-Soft- 
waresektor herrscht chronischer Man¬ 
gel an professionellen Programmen. 
Die Redaktion von »Faszination Programmie¬ 
ren« nahm das zum Anlaß, einen Wettbewerb 
ins Leben zu rufen und mit Hilfe der Leser ein 
umfangreiches Projekt durchzuführen. Zwi¬ 
schen drei Vorschlägen galt es auszuwählen: 

□ Tabellenkalkulation 
□ Textverarbeitung 

□ Projekt-Management für verschiedene 
Programmiersprachen 

Die Vorschläge und Anregungen unserer Le¬ 
ser, die im Laufe der Zeit die Redaktion er¬ 
reichten. übertrafen weit unsere Erwartungen. 
Seitenlange Abhandlungen über die in Aussicht 
gestellten Projekte, detaillierte Vorgehenswei¬ 
sen über die Durchführung etc. Hierfür möch¬ 
ten wir allen Einsendern herzlichst danken, die 
sich aus unterschiedlichsten Berufen zusam¬ 
mensetzten: Studenten, Berufsprogrammierer, 
Schüler und Hobby-Programmierer. 

Projekt-Management 
liegt vorn 

Überraschend war das Ergebnis der Aus¬ 
wertung. Die Redaktion rechnete damit, daß 
sich die Projekte »Tabellenkalkulation« bzw. 
»Textverarbeitung« ein Kopf-an-Kopf-Ren¬ 
nen liefern würden - weit gefehlt: ca. 80 Pro¬ 
zent entschieden sich fürs Projekt-Manage¬ 
ment. Hier einige Leserstimmen: 

Unter den von Ihnen vorgeschlagenen 
Projekten reizt mich besonders das letztere 
(Projekt-Management für verschiedene 
Programmiersprachen), da dies meiner Mei¬ 
nung nach die größte Herausforderung dar¬ 
stellt und ich mir durchaus vorstellen kann, 
daß gerade dafür ein enormer Bedarf be¬ 
steht. Ich stelle mir so eine Art »Program¬ 
men Workbench« vor, u.a. mit einem 
»Source-Revision-Control-System«. 

Jürgen Zimmermann. Altleiningen 


Als ich Ihren Artikel las, war ich hell be¬ 
geistert. Ich würde mich gerne als Pro¬ 
grammierer zur Verfügung stellen. Es soll 
eine Applikation entstehen, die im Prinzip 
die Zusammenarbeit verschiedenener Pro¬ 
grammierer an einem Projekt erleichtern 
soll. Ich habe mir schon lange die Realisie¬ 
rung so eines Projekts vorgenommen - für 
einen einzelnen Programmierer ist aber 
dieser Aufwand kaum zu tragen. 

Jonas Greutert. Maur (Schweiz) 



Zuerst möchte ich Ihnen zum ersten Pro- 
grammier-Sonderheft beglückwünschen, 
sein Informationsgehalt ist äußerst wertvoll. 
Die Idee mit dem Softwareprojekt ist ein¬ 
fach genial. Bei der Durchführung sollten 
Sie eine möglichst hohe Leserbeteiligung an¬ 
streben und den Leser stets über den aktu¬ 
ellen Stand informieren. Auf jeden Fall wür¬ 
de es mich reizen, einmal an einem größeren 
Softwareprojekt teilnehmen zu dürfen. 

Michael Haag. Karlsruhe 

Ich würde mich gerne an Ihrem Amiga- 
Programmierprojekt beteiligen. Warum ich 
bereit bin, auch noch Freizeit zum Pro¬ 
grammieren zu opfern? Nun, die kommer¬ 
zielle Welt ist etwas trist (Cobol und C) für 
jemanden, der in seinem Studium mit etwas 
besseren Ideen konfrontiert wurde. Außer¬ 
dem denke ich, daß es einer der Vorzüge von 
Modula-2 oder Oberon ist, mit geringem 
Zeitaufwand gute Ergebnisse zu erzielen. 
Mein Themenvorschlag: Natürlich das Pro¬ 
jekt-Management, das ich für sehr sinnvoll 
halte. Gernot Daum, München 

Eure Idee, ein großes Programmierpro¬ 
jekt ins Leben zu rufen, finde ich echt gut 
und würde mich daher gerne daran beteili¬ 
gen. Obwohl mir noch nicht ganz klar ist, 
wie ein Projekt-Manager aussehen sollte, 
reizt mich diese Variante am meisten, da es 
so etwas für den Amiga noch nicht gibt. 

Holger Rabbach, Solingen 


Das Ziel steht also fest. Nun gehts an die 
Umsetzung. Für die Planung benötigen wir 
Ideen, welche Aufgaben der Applikation zu¬ 
kommen, welche Features implementiert wer¬ 
den müssen etc.? Das Projekt-Management 
soll, von Programmiersprachen unabhängig, 
der Entwicklung von umfangreichen Anwen¬ 
dungen dienen. Der Zugang zu Compilern oder 
Assemblern geschieht über eine definierte 
Schnittstelle, z.B. ARexx oder Aufruf über ei¬ 
ne eigene DOS-Shell. Hier einige Anregungen: 

□ Integrierter Editor mit kontextorientierer 
Ausgabe. Abhängig von der eingestellten Pro¬ 
grammiersprache sollten Schlüsselwörter, 
Bezeichner etc. besonders gekennzeichnet wer¬ 
den. Außerdem muß die Möglichkeit gegeben 
sein, auf Tastendruck z.B. die zugrundelie¬ 
gende Struktur für eine Variable anzuzeigen. 
Selbstredend, daß Folding-Technik (Verstecken 
ganzer Funktionen) implementiert sein muß. 
Die Suchfunktion muß sich optional auf alle 
Module erstrecken. Ein Mausklick auf einen 
Funktionsnamen sollte diese anzeigen, unab¬ 
hängig davon, ob die Funktion im aktuellen 
oder einem anderen Modul existiert. 

□ Modulverwaltung mit der automatischen 
Vergabe von Versionsnummern, Make-Funk¬ 
tion, Auffinden von Referenzen und Abhän¬ 
gigkeiten innerhalb der Programmmodule. 

□ Generierung von Ablaufdiagrammen und 
erzeugen von Quelltext. 

□ Oberflächengenerator fürs mausorientierte 
Anlegen von Fenstern, Menüs etc. 

Gute Ideen sind 
gefragt 

Also: Was soll unser - bzw. Ihr - Programm 
können? Schreiben Sie Ihre Ideen auf und 
schicken Sie sie uns. Grundlage für das Pro¬ 
gramm ist OS 2.0 und höher. Schicken Sie Ih¬ 
re Vorschläge bis zum 30. November 1993 an: 
AMIGA-Redaktion 
»Faszination Programmieren« 

Markt & Technik Verlag AG 
Postfach 1304, 85531 Haar bei München 
Die Programmierer, die ihr Interesse an un¬ 
serem Projekt bekundet haben, werden wir in 
Kürze benachrichtigen. Abschließend der Ge¬ 
winner der 25-Mhz-GVP-MC68030-Turbo- 
karte, gestiftet von der Firma DTM Compu- 
tersysteme. Gewonnen hat 
Peter Gerlach aus Mettmann 
Herzlichen Glückwunsch. In der nächsten 
Runde gibt's dann wieder einen tollen Preis zu 
gewinnen, vielleicht sogar einen neuen Amiga 
(mehr wird nicht verraten). ■ 
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Sie haben den 
Amiga voll im 
Griff ? 



Sie arbeiten mit "Köpfchen"? 

Sie sind 

• kreativ 

• erfahren in Assembler 

• und haben Spaß daran, Lösungen für komplexe 
Aufgabenstellungen zu finden? 

Ihr Hobby: der Computer. 

Dann sollten Sie sich schnell mit uns in Verbindung setzen. 

Wir suchen für den Aufbau eines eigenständigen Software-Labels 
und für die Erstellung von Utilities für unsere Hardware-Linie 

Programmierer 

für Anwenderprogramme, Spiele, Grafik-Anwendungen, Sound 
usw., aber auch bereits fertige Progamme. 

Wir bieten Ihnen bei Vermarktung Ihrer Software interessante 
Konditionen und endlich die Möglichkeit, mit Ihren Ideen und 
Programmen ein größeres Publikum anzusprechen. 

Und das mit professioneller Marketing-Unterstützung! 

Sollte Ihr Interesse geweckt sein, so rufen Sie uns unter 02041 - 
20424 an und sprechen Sie mit Herrn Neuroth. 

Schrifliche Bewerbungen sollten eine kurze Beschreibung Ihrer 
Fähigkeiten und (wenn möglich) ein Muster eines von Ihnen 
erstellten Programmes beinhalten. 

Wir freuen uns auf Ihre Bewerbung! 

iN-Daf, 

Udo Neuroth Hardware Design, Essener Str. 4, 

4 62 36 Bottrop, Tel. 02041-20424, Fax 02041-25736 
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OS2.1 & 3.0 


Das unbekannte 1 


Seit fast einem Jahr gibt es den Amiga 4000 und den Amiga 1200 mit dem neu¬ 
en AA-Chipset. Zeit genug, um den Nachfolger des legendären Amiga 500 ge¬ 
nauer kennenzulernen. Wir zeigen Ihnen, was Sie in Sachen Programmierung 
und Bedienung des Amiga 1200 alles wissen sollten, um die volle Leistung des 
doch so anderen Amiga auch richtig auszunutzen. 


von Alexander Kochann und Oliver Reiff 


A ls der Amiga 1200 vor rund einem Jahr 
vorgestellt wurde, sorgte er mit seinem 
niedrigen Preis und seinen neuen, fan¬ 
tastischen Fähigkeiten im Bereich Grafik gleich 
für Aufsehen. Und daß sich der »kleine Bru¬ 
der« des Amiga 4(XH) mittlerweile auf dem 
Markt etabliert hat, beweisen seine Verkaufs¬ 
zahlen: 45 000 gingen allein im ersten Quartal 
1993 über die Ladentische. 

Dadurch ist auch für Programmierer eine 
neue Basis geschaffen worden, die sie nicht 
außer acht lassen sollten. Allerdings muß man 
einiges über den Neuen wissen, wenn man et¬ 
was aus ihm herauskitzeln möchte. 

Neue Features für 
Ihre Programme 

Am auffälligsten ist wohl das AA-Chipset. 
Hier in aller Kürze die wichtigsten Daten: 

In allen Auflösungen stehen 256 aus einer 
Palette von 16 777 216 Farben zur Verfügung. 
Dazu kommen die Modi HAM6 und HAM8, in 
denen mit kleinen Einschränkungen - im Prin¬ 
zip - alle Farben angezeigt werden können. In 
der Praxis kann man das jedoch nie erreichen; 
selbst auf einem Amiga 4000 steht nicht genü¬ 
gend Chip-RAM zur Verfügung, um einen 
Screen mit ebensovielen Pixeln zu öffnen. We¬ 
gen der etwas umständlichen Handhabung der 
HAM-Modi werden diese nur von Grafikpro¬ 
grammen verwendet. Andere Anwendungen 
und Spiele verwenden in der Regel maximal 
256 Farben. 

Auch bei den Auflösungen hat sich einiges 
getan. So bietet der PAL-SuperHiRes-Modus 
in der Interlace-Darstellung mit 1448 x 566 Pi¬ 
xeln die höchste horizontale Auflösung. Der 
DblPAL-HiRes-Interlaced dagegen schafft die 
höchste vertikale Auflösung mit 720 x 1128 
Bildpunkten. Diese extremen Auflösungen 
werden jedoch allein schon wegen des berüch¬ 
tigten Interlace-Flimmerns in der Praxis fast 
nicht genutzt. Ein sog. ScanDoubler könnte 
dies zwar beheben, hat aber bei hohen hori¬ 
zontalen Auflösungen (SuperHiRes) Probleme 
mit der Darstellung, da jede zweite Spalte ver¬ 
schluckt wird oder der Modus diese erst gar 
nicht darstellt. 


Wer noch mit einem Fernseher oder einem 
alten Monitor, wie dem 1084S arbeitet, hat so¬ 
wieso nur die Wahl zwischen PAL und NTSC. 
Um die neuen VGA-Modi wie DoublePAL be¬ 
nutzen zu können, empfiehlt sich der Anschluß 
eines MultiSync-Monitors. Wer einen reinen 
VGA-Monitor am Amiga 1200 betreiben 
möchte, sollte sich einen ScanDoubler zulegen, 
damit er sich auch die viel benutzten Modi 
PAL und NTSC anzeigen lassen kann. An¬ 
dernfalls kann man nicht einmal das Bootmenü 
erkennen, da es nur in diesen Modi arbeitet. 

Im Gegensatz zu den neuen Grafikchips Li¬ 
sa und Alice blieb der Soundchip unangetastet. 
Paula verwaltet weiterhin die vier Stereo- 
Tonkanäle mit acht Bit. Neuerungen wie DSP 
sind jedoch für die Zukunft zu erwarten. 

Auch der mit 14 MHz getaktete 68020-Pro- 
zessor trägt seinen Teil zur verbesserten Lei¬ 
stungsfähigkeit bei. Dadurch wird die reine Re¬ 
chenleistung etwa verdoppelt. Durch ge¬ 
schickte Nutzung des erweiterten Befehlssatzes 
und der komplexen Adressierungsarten lassen 
sich Programme zusätzlich beschleunigen. 
Diese laufen dann natürlich nur noch ab dem 
Amiga 1200 »aufwärts«. Da bei der Arbeit mit 
dem AA-Chipset mindestens ein 68020er vor¬ 
ausgesetzt werden kann, sollten dessen Mög¬ 
lichkeiten auch genutzt werden. Durch den in¬ 
ternen Erweiterungsschacht kann aber ohne 
Probleme eine Turbokarte mit einem noch lei¬ 
stungsfähigeren Prozessor wie dem 68040er 
eingesetzt werden. 

Außerdem läßt sich der Speicher dort mit 32- 
Bit-RAM erweitern. Zu den 2 MB Chip-RAM 
kommen dann bis zu 4 MByte Fast-RAM. 
wenn man keinen höheren Prozessor einbaut. 
Nicht ganz so schnell aber wesentlich einfacher 


AttnPlags equ 296 
AFB_68020 equ 1 

move.l 4.w,a6 
move.w AttnFlags(a6),d0 
btst #AFB_68020,d0 
bne ProzessorOk 
*** Fehlerroutine und Ende *** 

ProzessorOk 

MC68020 * nicht DevPac 

*** 68020 Befehle nun möglich *** 

. © 1993 MST 

Listing 1: Hiermit testen Sie, ob im 
Amiga ein MC68020 steckt 



»Amiga 1200«: Der Neue von Comniodoi 
grammieren«, was Sie beim Programmier 


zu handhaben sind die mit 16 Bit Breite arbei¬ 
tenden Speicherkarten für den PCMCIA-Slot. 
Einstecken und loslegen heißt hier das Motto. 

Neben der neuen Hardware wurde auch die 
Software erheblich erweitert. Umsteigern von 
Kickstart 1.2/1.3 wird gleich das professionel¬ 
le Design (kleines Bild rechts oben) auffallen, 
während OS2.0-Benutzer kaum optische Ver¬ 
änderungen feststellen können. Für Individua¬ 
listen stehen statt einem Preferences-Programm 
jetzt gleich eine ganze Schublade davon zur 
Verfügung. Neben Font, Farben und Screentyp 
kann man seit OS2.1 auch die Sprache einstel¬ 
len. die der Amiga verwenden soll. So erscheint 
die Workbench jetzt in Deutsch oder Schwe¬ 
disch. ganz wie man will... 

Des einen Freud... 

So angenehm dem Benutzer die Vielfalt an 
Voreinstellungen auch auffällt, für viele Pro¬ 
grammierer ist sie ein Dorn im Auge, denn die¬ 
se Individualität erfordert natürlich einen er¬ 
höhten Programmieraufwand. 

Bereits beim Programmstart sollten grund¬ 
legende Voraussetzungen geprüft werden. Da¬ 
zu zählen u.a. das verwendete Betriebssystem, 
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ich viel Neues zu bieten. Wir zeigen Ihnen in dieser Ausgabe von »Faszination Pro- 
titen müssen und was Sie alles aus dem 1200er rausholen können. 


vorhandene Prozessoren und Grafikchips. Be¬ 
denken Sie dabei auch, daß auch neuere Be¬ 
triebssystemversionen noch auf »Minimalsy¬ 
stemen« (also MC68000, altes Chipset und 512 
KByte Chip-RAM) laufen können. Am wich¬ 
tigsten ist wohl die verwendete CPU. Diese ist 
ebenso wie die Matheprozessoren und die 
MMU in den AttnFlags der ExecBase notiert. 
Erst nach einem solchen Test (Listing I), soll¬ 
ten Sie Ihren Assembler in einen höheren 
680x0-Modus schalten, um auch die erweiter¬ 
ten Befehle voll nutzen zu können. 

Wie die Prozessoren in ExecBase finden Sie 
in GfxBase die Bits für die Grafikchips . Dort 
enthält das UBYTE gb_ChipRevBits0 alles 
Wissenswerte über das verwendete Chipset. In 
der Regel sind die Informationen für normale 
Anwenderprogramme jedoch uninteressant, da 
sie nur an spezifischen Möglichkeiten des 
Chipsets interessiert sind. Diese können über 
das Betriebssystem differenzierter abgefragt 
werden. Es ist sogar aufwärtskompatibel, wenn 
sich Programme direkt nach den Daten des Sy¬ 
stems richten und nicht nach festen Werten. 
Denn noch höhere Auflösungen und mehr Far¬ 
ben werden in Zukunft möglich sein oder sind 
bereits mit Grafikkarten verfügbar. 


Programme, die erst ab dem AA-Chipset ar¬ 
beiten können, weil sie z.B. Interleave-Bitmaps 
oder eigene Copperlisten benötigen, sollten die¬ 
se Bits aber unbedingt testen und eine ent¬ 
sprechende Fehlermeldung ausgeben, damit der 
Benutzer weiß, woran er ist und nicht ewig 
nach der Absturzursache suchen muß. 

Jetzt sollten alle benötigten System-Res¬ 
sourcen wie Libraries, Devices und Speicher 
besorgt werden. Danach kann man sich an das 
Öffnen eines Fensters wagen. Dies ist gar nicht 
so einfach, will man alle Eventualitäten berück¬ 
sichtigen. Flexibilität ist also gefragt. Nicht nur 
Höhe, Breite und Farbtiefe der Workbench 
können variieren. Auch Font und Drawlnfo des 
Screens sind zu berücksichtigen. Gerade die 
Drawlnfo-Struktur bietet viele Möglichkeiten. 
Don lassen sich vor allem die vom System ver¬ 
wendeten Farben auslesen. So wird Text nicht 
immer mit der Farbe Nummer I ausgegeben, 
die 3-D-Kanten und Titelbalken nicht immer 
mit den gleichen Farben dargestellt. Diese va¬ 
riieren vielmehr von Screen zu Screen. 

Öffnet man das Fenster auf einem eigenen 
Screen. verlagert man das Problem nur. Zwar 
kann man dann alle verwendeten Fonts. Pens 
und Farben selbst festlegen, aber erstens geht 



das an der Individualität des Benutzers vorbei 
und außerdem muß man dann einen eigenen 
Bildschirm öffnen. Ob die benutzten Grafik¬ 
chips diesen Bildschirm überhaupt darstellen 
können, erkennen Sie am Rückgabewert von 
»ModeNotAvailableO« der »graphics.library« 
und nicht erst daran, ob »OpenScreenO«. oder 
besser »OpenScreenTagListO«. fehlschlägt. 
Denn selbst bei diesen Routinen kann es zu Ab¬ 
stürzen kommen, wenn der Screen gar nicht 
dargestellt werden kann. Ein weiteres Problem 
ergibt sich aus dem vom Benutzer verwende¬ 
ten Monitor. Denn bekanntlich kann z.B. der 
I084S ja keine DblPAL-Modi darstellen. Des¬ 
halb empfiehlt es sich, den Benutzer bei der 
Verwendung des Screens ein Wörtchen mitre¬ 
den zu lassen. Am besten mit einem Screen- 
Mode-Requester der »asl.library«. 

Apropos Requester: Natürlich sollten auch 
Zeichensätze und Dateien über die Requester 
der »asl.library« auswählbar sein. Es ist immer 
wieder ärgerlich, wenn man den ganzen Pfad 
einer Datei mit eintippen muß oder den Text 
nicht erkennt, weil der Font zu klein ist (z.B. 
Topaz 8 bei den hohen Auflösungen von Gra¬ 
fikkarten, zukünftigen Auflösungen oder sogar 
DbIPAL-Interlace). 

Auch eigene Requester, an die sich der Be¬ 
nutzer für jedes Programm neu gewöhnen muß. 
sollten eigentlich der Vergangenheit an¬ 
gehören, da die ASL-Requester wirklich uni¬ 
versell einsetzbar sind. Zwar waren die ersten 
Versionen des ASL-Filerequesters ziemlich 
langsam, inzwischen sind sie aber beim Einle¬ 
sen von Verzeichnissen schneller als mancher 
selbstgestrickter, dazu sind sie komfortabler 
und locale-fähig. 

Spiel läuft nicht - 
Geld zurück 

Überhaupt sollten Sie so viel wie möglich 
dem Betriebssystem überlassen. Dies erspart 
Zeitaufwand beim Programmieren, erleichtert 
die Bedienung und ist garantiert ziemlich auf¬ 
wärtskompatibel. Bestes Beispiel dafür ist die 
Funktion »GetCCO« der »exec.library«. Diese 
ersetzt den Befehl »move sr.dO«, was nur auf 
dem MC68000 im User-Modus erlaubt ist. Auf 
allen anderen Prozessoren führt der Befehl zum 
Absturz wegen Privilegverletzung. Das war 
natürlich nicht vorhersehbar, als nur der 
MC68000 auf dem Markt war. 

Kompatibilität ist sowieso zu einem Reiz¬ 
wort für die Amiga-Anwender geworden. Neu¬ 
lich wollten ein Junge sogar seinen Amiga 
1200 an den Händler zurückgeben, weil dieser 
kaputt sein müsse. Die Hälfte seiner alten Spie¬ 
le laufe nicht. Und das waren bestimmt nicht 
nur die Spiele, die seinem alten Amiga 500 auf 
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den Leib. bzw. die Hardware, geschrieben wur¬ 
den. Auch ernstzunehmende Anwendungen 
wie beispielsweise BeckerText hatten ein Up¬ 
date nötig, da sie mit dem neuen Betriebssy¬ 
stem nicht zurechtkamen. Wie läßt sich so et¬ 
was vermeiden? 

Nun. daß man ROM-Adressen niemals di¬ 
rekt anspringt und nur die ExecBase an der 
Adresse $00000004 feststeht, sollte inzwi¬ 
schen hinreichend bekannt sein. Natürlich ist 
auch auf das Multitasking Rücksicht zu üben. 
Dies heißt jedoch nicht nur. daß man sich Spei¬ 
cher vom System besorgen läßt und ihn eben¬ 
so wieder freigibt. Multitasking heißt auch, die 
vorhandenen Resources so gut wie möglich zu 
nutzen und gerade mit dem Speicherverbrauch 
sparsam umzugehen. 

Fehler beim Umstieg 
vermeiden 

Das bedeutet, daß man die vorhandenen 
Möglichkeiten des Betriebssystems so gut wie 
möglich ausschöpft. Dafür lohnt es sich auch, 
kleine Nachteile in Kauf zu nehmen, die spä¬ 
ter beseitigt werden, wie z.B. beim bereits er¬ 
wähnten ASL-Requester. 

Probleme treten auch durch die höheren Pro¬ 
zessoren auf. Beim MC680(X) war selbstmodi¬ 
fizierender Code möglich, da die CPU keinen 
Befehlscache kannte. Bei Prozessoren mit Ca¬ 
che kann dies sehr leicht zu Abstürzen führen, 
da der Befehl zwar im Speicher abgeändert 
wurde, im Befehlscache des Prozessors jedoch 
nicht. Ebenso verbietet es sich, das erste Byte 
von Zeigern zu benutzen, auch wenn dies beim 
MC68000 möglich war. Inzwischen ist der 


Adreßbereich über die 24-Bitgrenze gewachsen 
und es gibt Speichererweiterungen für Turbo- 
karten, die sich ab der Adressse $08000000 
einblenden. 

Des weiteren sind zwar einige Parameter von 
Funktionen in der Dokumentation enthalten, 
wurden jedoch nicht genutzt. Initialisieren Sie 
solche Parameter deshalb immer mit null. Für 
C-Programmierer ist das eine Selbstverständ¬ 
lichkeit, mancher Assembler-Programmierer 
maß dem jedoch keine Bedeutung bei. Ande¬ 
re Parameter wurden vom System nicht korrekt 
getestet: ln der Dokumentation stand zwar 
LONG, intern wurde aber nur mit einem 
WORD gearbeitet. Dies mag sich aber bei der 
nächsten Betriebssystemversion ändern. Halten 
Sie sich also genau an die Richtlinien und Do¬ 
kumentationen von Commodore, auch wenn 
sich Commodore selbst nicht immer daran hält. 

Es ist leicht gesagt, man möge sich an die 
Commodore-Richtlinien für Programmierer 
halten. Alle nicht dokumentierten oder beson¬ 
ders gekennzeichneten Einträge sind tabu. 
Und außerdem ahne man bitte zukünftige Ent¬ 
wicklungen voraus. Hierzu ein Beispiel aus der 
»locale.library«: Jeder Locale-Catalog sollte ei¬ 
nen korrekten 2.0-Versionstring enthalten. Die¬ 
ser ist folgendermaßen aufgebaut: 

$VER: <name> <version>.<revision> (<date>). 

Mit der »locale.library« V38 wurden noch 
Kataloge geöffnet, bei denen keine Revision 
angegeben war. Ab V39 werden nur noch Ka¬ 
taloge mit korrektem Versionstring geöffnet. 
Achten Sie also auch bei solchen »Kleinigkei¬ 
ten« auf Korrektheit. 

Da sich aber noch nicht alles über das Be¬ 
triebssystem regeln läßt, ist man als Program¬ 
mierer einfach manchmal gezwungen, seine ei¬ 


genen Wege zu finden. Dabei sollte man sich 
wirklich sehr behutsam vortasten und nicht all- 
zuvieles als feste Tatsachen voraussetzen. 
Wollte man beispielsweise den Rahmen um 
Stringgadgets verändern, so hatte man es unter 
OS2.0 noch mit einem Border zu tun, der um 
das Gadget gezeichnet wurde. Ab OS3.0 han¬ 
delt sich um ein Image. Versuche, den ver¬ 
meintlichen Border zu ändern, mußten natür¬ 
lich zum Absturz führen. 

Besonders, da es gerade für das AA-Chipset 
unzählige Commodities und Patches gibt, ist 
Vorsicht geboten. Häufig werden Betriebssy¬ 
stemroutinen gepatcht. um aus Cyclegadgets 
kleine Menüs auszuklappen, das Menü direkt 
am Mauspfeil anzuzeigen oder die Grafikdar¬ 
stellung zu verbessern. So sollte man sich un¬ 
bedingt das äußerst nützliche KCommodity 
(Shareware von Kai Iske) zulegen. Es verbin¬ 
det Screen- und Mausblanker. Screenpromoter, 
Uhr und viele weitere Funktionen in einem. 

Gut ist nicht mehr 
gut genug 

OS2.0/3.0 hat nicht nur grafische Verände¬ 
rungen gebracht. Die Tatsache, daß der Um¬ 
fang des ROMs von 256 KByte auf 512 
KByte verdoppelt wurde, spricht für sich. Die 
neuen Möglichkeiten sollten natürlich genutzt 
werden. Dazu gehören u.a. Kommunikation 
über ARexx, Hotkeys über die »commodi- 
lies.library«. mehrsprachige Programme dank 
»Locale« und Einrichten eines Programmes auf 
Festplatte durch den Installer. Da andere Arti¬ 
kel in diesem Heft auf die Programmiersprache 
des Installers und die Möglichkeiten von 


CreateMsgPort equ -666 

move.l d0,a3 

DeleteMsgPort equ -672 

move.l d6,al 

CreateCxObj equ -30 

move.l Brokerl,aO 

RemoveCxObj equ -102 

jsr ReplyMsg(a6) 

CxBroker equ -36 

move.l a2,al 

DeleteCxObjAll equ -54 

cmp.l #15,d2 

AttachCxObj equ -84 

jsr AttachCxObj(a6) 

FreeHotkey 

beq.s .disable 

SetFilter equ -120 

move.l a2,a0 

move.l CxBase,a6 

cmp.l #17,d2 

InitHotkey 

move.l a3,al 

Cx FreeBroker 

beq.s .enable 

lea NewBrokerl,a5 

jsr AttachCxObj(a6) 

move.l Brokerl,aO 

cmp.l #19,d2 

move.l 4.w,a6 

moveq #l,dO 

jsr RemoveCxObj(a6) 

beq.8 .appear 

jsr CreateMsgPort(a6) 

bsr.s Cx Activate 

move.l Brokerl,aO 

* cmp.l #21,d2 

move.l d0,20(a5) 

.exit 

jsr DeleteCxObjAll(a6) 

* beq.s .disappear 

beq.s .exit 

rts 

Cx FreePort 

cmp.l #23,d2 

move.l CxBase,a6 

NewBrokerl 

move.l 4.w,a6 

bne.s .exit 

move.1 a5,aO 

dc.b 5,0 * Version 

lea NewBrokerl,a5 


moveq #0,dO 

de.1 BrokerName 

move.l 20(a5),a0 

.kill 

jsr CxBroker(a6) 

dc.l BrokerTitle 

jsr DeleteMsgPort(a6) 

moveq #-l,d7 

lea Brokerl,aO 

de.1 BrokerText 

rts 

bra.s .exit 

move.l dO,(aO) 

dc.w 0 

*_ 


beq Cx FreePort 

dc.w 4 * Show/Hide 

GetMsg equ -372 

.disable 

moveq #l,dO * CxFilter 

dc.b 0,0 

ReplyMsg equ -378 

moveq #0,dO 

sub.l aO,aO 

dc.l 0 * MsgPort 

CxMsgID equ -150 

bsr Cx_Activate 

sub.l al,al 

dc.w 0 * Strukturende Brokerl 

GetCxMsg 

bra.s .exit 

jsr CreateCxObj(a6) 

dc.l 0 

lea NewBrokerl,aO 


tst.l dO 

Hotkey Text 

move.l 20(aO),dO 

.enable 

beq Cx FreeBroker 

dc.b 'Ctrl q',0 

beq.s .exit 

moveq #l,dO 

move.1 dO,a2 

BrokerName 

move.l dO,aO 

bsr Cx Activate 

move.l dO,aO 

dc.b '1200-Demo',0 

move.l 4.w,a6 


lea Hotkey Text.al 

even 

jsr GetMsg(a6) 

.exit 

jsr SetFilter(a6) 

*_ 

move.1 dO, d6 

rts 


ActivateCxObj equ -42 

beq.s .exit 


moveq #8,d0 * CxCustom 

Cx Activate 


.appear 

lea Hotkey Routine,aO 

move.l CxBase,a6 

move.l dO,aO 

bsr ShowAmigaGuide 

sub.l al,al 

move.l Brokerl,aO 

move.l CxBase,a6 

bra.s .exit © 1993 Mil 

jsr CreateCxObj(a6) 
tst.1 dO 

jsr ActivateCxObj(a6) 
rts 

jsr CxMsgID(a6) 
move.l d0,d2 

Listin}» 2: Programmierung 

beq.s Cx_FreeBroker 

*_ 

move.l 4.w,a6 

von Commodities 
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ARexx eingehen, widmen wir uns vor allem 
den anderen Themen und da zuerst den sog. 
Hotkeys. 

Sicher kennen Sie das Programm »FKey« 
aus der Commodities-Schublade. Damit kön¬ 
nen Sie bestimmten Tastenkombinationen 
Funktionen zuweisen, z.B. können Sie Pro¬ 
gramme oder ARexx-Scripts per Tastendruck 
starten, Fenster und Bildschinne manipulieren 
oder ganze Zeichenketten in Texte einfügen 
lassen. Ähnliches verwenden auch andere Pro¬ 
gramme, die per Tastendruck »sichtbar« wer¬ 
den, also z.B. ein Fenster öffnen, in dem Vor¬ 
einstellungen getroffen werden können. Alle 
diese Programme nennt man Commodities. 

System erweitern 
mit den Commodities 

Die Programmierung eigener Commodities 
ist recht einfach. Wichtigste Voraussetzung ist 
die »Commodities.library«. In ihr finden sich 
die wichtigen Funktionen zum Anlegen, Ver¬ 
walten und Entfernen von Commodities. Ein 
Commodity, wie wir es in unserem Beispiel 
benötigen, besteht aus einem Broker und meh¬ 
reren untergeordneten CxObjects. Ein Broker 
ist die wichtigste Struktur eines jeden Com¬ 
modities. Ohne diese Struktur ist ein Programm 
kein angemeldetes Commodity und wird auch 
nicht vom Cx-Exchange angezeigt. Sie wird 
über die NewBroker-Struktur initialisiert, in der 
wichtige Informationen wie Name und kurze 
Beschreibung enthalten sind. Der wichtigste 
Eintrag ist jedoch der Messageport, den wir 
vorher mit »CrcateMsgPortO« aus der »exec.li¬ 
brary« angelegt haben. 

Über diesen bekommt unser Programm 
Nachrichten geschickt, die von Exchange ge¬ 
sendet werden. Wenn Sie Exchange starten, 
werden im Fenster alle laufenden Commodities 
nebst Infonnationen gezeigt. Außerdem kön¬ 
nen Sie über die Gadgets Commodities entfer¬ 
nen, aktivieren oder deaktivieren, wenn das 
Commodity dies vorsieht. Unser Demopro¬ 
gramm soll das natürlich alles beherrschen. 


Nachdem wir den Broker jetzt per »CxBro- 
ker()« angelegt haben, hängen wir ihm noch 
zwei CxObjects an. Diese Objekte werden über 
»CreateCxObjectO« initialisiert und erledigen 
die eigentliche Arbeit. Das erste ist vom Typ 
CxFilter und überwacht die in »SetFilterO« an¬ 
gegebene Tastenkombination. Das letzte Glied 
in der Kette ist ein CxObject vom Typ CxCu- 
stom. Ihm wird ein Zeiger auf die Routine 
übergeben, die angesprungen werden soll, so¬ 
bald der Hotkey gedrückt wird. Über »Attch- 
CxObjO« werden unsere drei Objekte mitein¬ 
ander in Verbindung gebracht und mit »Ac- 
tivateCxObjO« aktiviert. 

Zur Veranschaulichung dient Listing 2. Es ist 
nur ein Ausschnitt aus dem gesamten Pro¬ 
gramm. das sich auf der PD-Diskette zu dieser 
Ausgabe von »Faszination Programmieren« 
befindet (siehe S. 114). 

Freizugeben ist der Broker ganz einfach. Zu¬ 
erst wird er aus der Liste der Commodities ent¬ 
fernt und dann der gesamte Speicher wieder 
freigegeben. Natürlich müssen wir auch den 
Messageport wieder freigeben. Aber küm¬ 
mern wir uns zuerst um die Kommunikation 
der Objekte. Wird der Hotkey gedrückt, wird 
nicht etwa eine Message verschickt, sondern 
die angegebene Routine direkt angesprungen. 
Wichtig ist, daß die Routine alle verwendeten 
Register rettet. Die Werte der Register beim 
Routinenanfang sind nicht dokumentiert. 

Messages werden nur, wenn das Commodi¬ 
ty über Exchange gesteuert wird. Um eine 
Nachricht auswerten zu können, holen wir sie 
uns einfach mit »GetMsgO« der »exec.library«. 
Dann finden wir mit »CxMsglDO« ihren Typ 
heraus und schicken sie wieder zurück. So ein¬ 
fach geht das. Etwas kompliziert wird es, will 
man mehrere Hotkeys verwenden. Aber auch 
das ist realisierbar. Sie müssen dem Broker le¬ 
diglich neue CxObjects hinzufügen. 

Was sich über die »Commodities.library« 
noch gut realisieren läßt, sind Inputevents al¬ 
ler Arten, wie Mausbewegungen oder ein Ta¬ 
stendruck. Ob man nun Events verschlucken, 
neue hinzufügen oder aufgetretene Events 
konvertieren will, alles ist möglich. 


Interessant ist auch die Fernsteuerung via 
ARexx, auf die wir im folgenden ganz kurz 
eingehen möchten. Auch hier erfolgt die Kom¬ 
munikation über Messages und Ports. Sie 
müssen dem Port hier jedoch einen Namen ge¬ 
ben und ihn über »AddPortO« in die Liste der 
öffentlichen Ports einbinden. Wie sie ARexx- 
Messages auslesen, sehen Sie im entsprechen¬ 
den Listing 3. Unser 1200erDemo erkennt nur 
die Befehle »SCREENTOFRONT« und »EN¬ 
DE«. Ein ARexx-Script, das unser Demo von 
außen steuert, sollte mit »ADDRESS I200DE- 
MO_REXX« beginnen. Ansonsten sollten nur 
die ARexx-Direktiven und die beiden eigenen 
Befehle verwendet werden. 

Programmierer werden sich mehr und mehr 
fragen, wie viele Sprachen sie noch lernen 
müssen, um den Amiga komplett auszureizen? 
Neben der favorisierten Sprache wie Assembler 
oder C verwenden AmigaGuide. ARexx und 
Installer eine eigene Sprache. Da an anderer 
Stelle in diesem Heft genauer auf ARexx und 
den Installer eingegangen wird, hier nur der 
Hinweis, daß zu jedem größeren Programm¬ 
paket einfach ein Instailer-Script dazugehört. 
Ansonsten steht der Benutzer entweder im Re¬ 
gen, weil er nicht weiß, welche Dateien wohin 
gehören, oder er muß alles per Hand kopieren. 

MultiView - einer für alles. 

Ebenso wichtig ist auch eine gute Doku¬ 
mentation. Dazu bietet sich das AmigaGuide- 
Fonnat von Commodore geradezu an. In der 
Regel wird ein solcher Guide über sein Default- 
Tool Multiview aufgerufen. Es ist jedoch auch 
möglich, AmigaGuides aus dem laufenden Pro¬ 
gramm zu laden und anzuzeigen, ja sogar von 
außen zu steuern. 

Ein jeder Guide besteht aus einer ASCII- 
Datei, die mit der Kennung »@DATABASE 
<name>« beginnt. Wobei für <name> der Na¬ 
me des Guides zu setzen ist. Eingeteilt ist ein 
jeder Guide in Kapitel - sog. Nodes. Jede Node 
hat einen Namen, einen Titel und einen Text, 
der angezeigt werden soll. Die Node, die als er¬ 
stes dargestellt werden soll, erhält immer den 
Namen MAIN. 


AddPort equ -354 

even 

move.l 4.w,a6 

move.l a2,al 

CreateMsgPort equ -666 

RemPort equ -360 

move.l d0,a0 

jsr ReplyMsg(a6) 

LN_NAME equ 10 

DeleteMsgPort equ -672 

jsr GetMsg(a6) 

.exit 

InitARe 

FreeARe 

tst.l dO 
beq.s .exit 

rts 

xx move.l 4.w,a6 

xx move.l ARexxPort,d2 


CmpString 

jsr CreateMsgPort(a6) 

beq.s .exit 

move.1 dO,a2 

move.l a3,al 

lea ARexxPort,aO 

move.l 4,w,a6 

move.l rm ARGO(a2),a3 

.loop 

move.l dO,(aO) 

move.1 d2,al 


move.b (a0)+,d0 

beq.s .exit 

jsr RemPort(a6) 

lea Blabla Text.aO 

beq.s .null 

move.l dO,al 

move.1 d2,aO 

bsr.s CmpString 

bclr #5,dO 

lea ARexxPortName.aO 

jsr DeleteMsgPort(a6) 

tst.l dO 

emp.b (al)+,d0 

move.l aO,LN_NAME(al) 

.exit 

beq.s .next 

beq.s .loop 

jsr AddPort (a6) 

rts 

bsr Hotkey Routine 

.bad 

.exit 


bra.s .reply 

moveq #0,dO 

rts 

GetMsg equ -372 


rts 

ARexxPort 

ReplyMsg equ -378 

.next 

.null 

dc.l 0 

nn ARGO equ 40 

lea Ende Text,a0 

tst.b (al) 

ARexxPortName 


bsr.s CmpString 

bne.s .bad 

dc.b '1200DEMO REXX',0 

GetARexxMsg 

tst.l dO 

moveq #-l,d0 

Blabla Text 

move.1 ARexxPort,dO 

beq.s .reply 

rts © 1993 MST 

dc.b 'SCREENTOFRONT',0 

beq.s .exit 


Listing 3: ARexx-Port selbst¬ 
gestrickt 

Ende Text 
dc.b 1 ENDE 1 ,0 

moveq #0,d2 

.reply 
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Workbench Screen Mittwoch n Aug 93 12:33: ti Ql 



»CX-Exchange«: Hier können alle dem System angemeldeten Commodities ange¬ 
zeigt, an- und abgeschaltet oder entfernt werden 


Initialisiert wird die Node folgendermaßen: 

@NODE <name> "<titel>" 

Alle folgenden Zeilen bis »@ENDNODE« 
sind darzustellender Text. 

Besonderheiten beginnen immer mit einem 
Klammeraffen (»@«). Äußerst nützlich sind 
dabei die Links, also Querverweise, die durch 
Gadgets dargestellt werden, und zu anderen 
Kapitel verzweigen. Ein solcher Link könnte 
folgendermaßen aussehen: 

@{" Knopftext " LINK Kapitel3). 

Als Kapitel kann auch eine Node eines an¬ 
deren Guides angegeben werden. Dann steht 
der Guidename vor dem Nodenamen und wird 
durch »/« getrennt. 

Im Listing 4 finden Sie ein Beispiel zum Öff¬ 
nen eines Guides. Dieser muß im gleichen Ver¬ 
zeichnis wie das Programm liegen. Das Öffnen 
ist einfach: Der »amigaguide.library« wird ei¬ 
ne NewAmigaGuide-Struktur übergeben. Den 
Rest übernimmt die Library. Ein Unterschied 
zu Multiview ist für den Benutzer nicht mehr 
feststellbar. Das heißt auch, daß nicht unbe¬ 
dingt ein AmigaGuide geöffnet werden muß, 
denn bekanntlich beherrscht Multiview ja alle 
Datatypes, von Text über Sound bis hin zur 
Grafik. 


ShowAmigaGui.de 
move.l AgBase.dO 
beq.s .exit 
move.l D08Ba8e,a6 
jsr GetProgramDir(a6) 
lea MyNag_Lock,aO 
move.l dO,(aO) 
beq.s .exit 
move.l AgBase,a6 
lea MyNag.aO 
sub.l al,al 

jsr 0penAmigaGuideA(a6) 

move.l dO,aO 

jsr CloseAmigaGuide(a6) 

.exit 

rts 

MyNag 

MyNag_Lock de. 1 0 
MyNag_Name de.1 NagName 
MyNag_Screen de.1 0 
MyNag_ScreenName dc.l PubName 
MyNag_Port de.1 0 
MyNag_ClientPort dc.l 0 
MyNag_BaseName dc.l BaseName 
MyNag_Flags de.1 0 
MyNag_Context dc.l 0 
MyNag_Node de.1 NodeName 

MyNag_Line de.1 1 

MyNag_Extene de.1 0 

MyNag_Private de.1 0 
NodeName 
dc.b 'MAIN',0 
NagName 

dc.b 'txt:m&t/1200Demo.guide',0 
BaseName 

dc.b 'Demo.guide',0 © 1993 K&T 

Listing 4: Demonstration der neuen 
AmigaGuides 


Benutzt man zum Öffnen die Funktion 
»OpenAmigaGuideAO«, wird mit der Pro¬ 
grammausführung so lange gewartet, bis der 
Benutzer den Guide wieder schließt. »Open- 
AmigaGuideAsyncAO« dagegen startet ein 
eigenes Programm und ihr eigenes kann in¬ 
zwischen weiter arbeiten. Mit dem geöffneten 


Guide kann man dann noch über die »amiga¬ 
guide.library« kommunizieren. 

In unserem Beispiel lassen wir den Benutzer 
sogar wählen, welches Kapitel der Dokumen¬ 
tation er betrachten möchte. Dafür sorgt der 
Eintrag »Node« der NewAmigaGuide-Struktur. 
Neben dem Kapitel kann übrigens auch noch 
die Zeile angegeben werden. Voreingestellt ist 
die Main-Node und die erste Zeile. 

Locale - man spricht 
Deutsch 

Und noch ein letztes Feature, das in Zukunft 
alle Programme unterstützen sollten: die »lo¬ 
cale. library«. Mit ihr kann der Benutzer 
wählen, in welcher Sprache sein Computer lau¬ 
fen soll. Das Betriebssystem und die Original¬ 
programme von Commodore sind inzwischen 
fast alle localefähig. Ein einfaches Einstellen 
mit dem Prefs-Programm »Locale« genügt. 
Viele Anwenderprogramme unterstützen diese 
Möglichkeit jedoch nicht. Vielleicht, weil die 
Programmierer denken, daß die Programme 
dann erst ab OS2.1 laufen. Doch weit gefehlt: 
Entsprechende Programme laufen sogar unter 
AmigaDOS1.2. Sie sind natürlich dann nicht 
localefähig, aber aufwärtskompatibel. 

Grundvoraussetzung für »mehrsprachige« 
Programme bilden die Kataloge. Diese können 
Sie entweder mit MakeCat oder CatComp er¬ 
stellen. Da der Katalog für unser Demopro¬ 
gramm direkt mit dem Assembler-Listing und 
MakeCat erstellt wird, befindet sich eine Ver¬ 
sion von MakeCat ebenfalls auf der PD-Dis- 
kette zum Heft. Für jede Sprache muß ein ei¬ 
gener Katalog angelegt werden. Fehlt ein Ka¬ 
talog. so wird entweder ein anderer geöffnet 
oder einfach Englisch als Sprache verwendet. 
Wie man einen Katalog öffnet, schließt und 
sich die Stringadressen besorgt, zeigt Listing 5 
(übernächste Seite). Besonders einfach geht 
dies mit der Unterroutine »GetString« und dem 


Macro »loclea«. Dieses ist voll kompatibel zu 
»lea«, jedoch natürlich nicht ganz so schnell, 
weshalb man es in Schleifen so sparsam wie 
möglich verwenden sollte. Zu beachten ist nur 
noch, daß diese Strings read-only sind. 

Programme, die explizit auf die AA-Chips 
zugreifen, können auch einen MC68020 als 
Prozessor voraussetzen und ausreizen. Um an¬ 
dere Programme zusätzlich zu beschleunigen, 
können Sie natürlich bei zeitkritischen Routi¬ 
nen den Prozessortyp abtesten und entspre¬ 
chend verzweigen. Besonders bei kurzen 
Schleifen (bis zu 256 Byte Code), die oft 
durchlaufen werden, ist dies sehr sinnvoll. 
Denn erstens lohnen sich verschiedene Ver¬ 
sionen von Routinen nicht, wenn sie nur ein¬ 
mal durchlaufen werden und man nur ein paar 
Taktzyklen spart. Und zweitens wird die Aus¬ 
führung dadurch wesentlich beschleunigt, daß 
die Befehle aus dem Befehlscache gelesen wer¬ 
den können, der beim MC68020 eben 256 Byte 
groß ist. Beim MC68040 ist er sogar 4 KByte 
groß, was eine weitere Beschleunigung mit sich 
bringt. Das verbietet natürlich selbstmodifizie¬ 
renden Code, aber das dürfte im Vergleich zur 
Leistung ein nur geringer Nachteil sein. 

MC68020 - das neue 
Herz des Amiga 

Ebenfalls neu gegenüber dem MC68000 sind 
auch die Register VBR. SFC. DFC. A7" (oder 
MSP), sowie die Cache-Register CACR und 
CAAR. Diese dürfen jedoch nur im Supervi¬ 
sor-Modus benutzt werden. Apropos Supervi¬ 
sor: es sei hier noch einmal kurz an die einzi¬ 
ge Aufwärts-Inkompatibilität erinnert. Das 
Statusregister darf vom MC68020 aufwärts nur 
noch im Supervisor-Modus gelesen werden 
(siehe oben). Interessant ist auch, daß die 
Adreßregister endlich auch mit ungeraden 
Adressen arbeiten können, so daß der Guru 
$80000003 fast der Vergangenheit angehört. 
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Tabelle 1: die neuen Adressierungsarten 


Art 


ARI. [+Offset32]. [+Skalierung] 
pc-relatic [+Offset32] [+Skalierung] 
doppelt indirekt, Post-Index 
doppelt indirekt, Post-index, pc-relativ 
doppelt indirekt, Pre-Index 
doppelt indirekt, Pre-Index, pc-relativ 


.) Erklärungen zu Mnemonik: 
d1/d2 = 32-Bit-Offset 
An = beliebiges Adreßregister 

Ri.s = beliebiges Register mit Größenangabe (word oder long) 
sei = Skalierung (multipliziert den Registerinhalt intern mit 1,2,4 oder 8) 
pc = Programm Counter 
.) ARI = AdreßRegister Indirekt (entspricht z.B. (a0)) 

.) Angaben bei Art in eckigen Klammern sind optional, können also weggelassen werden. Bei den letzten 
vier Adressierungsarten unter Mnemonik sind praktisch alle Bestandteile optional'([])' ist also erlaubt I 


Mnemonik. 

(d1,An,Ri.s*scl) 

(label,pc,Ri.s*scl) 

([d1,An],Ri.s*scl,d2) 

x([d1,pc],Ri.s*scl,d2) 

([d1,An,Ri.s*scl],d2) 

x([d1,pc,Ri.s*scl],d2) 


Denn Befehle müssen weiterhin an geraden 
Speicherstellen beginnen. Die von der »dos.li- 
brary« verwendeten BCPL-Zeiger müssen 
natürlich weiterhin an durch vier teilbaren 
Adressen liegen, da dies Software-bedingt ist. 

Besonders interessant und zeitsparend sind 
die neuen Adressierungsarten, die der 
MC68020 beherrscht. Wenig Neues bieten fol¬ 
gende zwei Möglichkeiten, die schon der 
MC68010 beherrschte. Mit ihnen wurde die 
Adreßdistanz der indirekten Adressierungsar¬ 
ten von 8, bzw. 16 Bit auf 32 Bit erweitert. 
Außerdem lassen sich jetzt Register skalieren, 
d.h. intern mit einem Faktor 1,2,4 oder 8 mul¬ 
tiplizieren, ohne daß die Registerinhalte ver¬ 
ändert werden. Ein Beispiel dafür wäre fol¬ 
gender Befehl: 

move.w #1000,($10000,a0,d2.w*8) 

Er faßt sozusagen folgende 680(X)er-Befeh¬ 
le zusammen, ohne die Register zu verändern: 
mulu #8,d2 
add.l d2,a0 
add.l #$10000,aO 

move.w #1000,(aO) 

Noch leistungsstärker, aber auch etwas kom¬ 
plizierter, sind die komplexen Adressierungs¬ 
arten. Dazu ein ganz einfaches Beispiel: Statt 
move.l (a0),a0 
clr.b (aO) 
können Sie jetzt 
clr.b ([aO]) 

schreiben, ohne daß aO verändert wird. Dank 
vieler optionaler Parameter können diese 
Adressierungsarten eben sehr komplex werden. 
Alle Parameter in eckigen Klammern bilden 
zusammen einen Zeiger auf eine Speicherstel¬ 
le, die dann wiederum indirekt adressiert wer¬ 
den kann. Dazu folgendes Beispiel: 
tst.b ([$10000,a0,d7.1*2],10) 

Für den MC68IXX) ließe sich dieser Befehl so 
umschreiben: 
add.l d7,d7 
add.l d7,a0 
add.l #$10000,aO 
tst.b 10(a0) 

Alle vier komplexen Adressierungsarten fin¬ 
den Sie in der Tabelle I, ebenso wie die zwei 
neuen indirekten Varianten. Doch nicht nur die 
Offsets wurden auf 32-Bit-Breite erweitert. Da 


jetzt auch der interne Datenbus 32 Bit breit ist, 
lassen sich auch Langworte leichter multipli¬ 
zieren und dividieren. So multipliziert »muls.l 
d(),dl« beide Register mit voller 32-Bit-Brei- 
te. Dabei kann es leicht zu einem Overflow 
kommen. Deswegen kann auch »muls.l 
dO.dl :d2« benutzt werden. Dann befinden sich 
die oberen 32 Bit des 64 Bit großen Ergebnis¬ 
ses in dl, die unteren in d2. Ein Overflow ist 
somit nicht mehr möglich. Ebenso arbeiten die 
Befehle »mulu.l«, »divs.l« und »divu.l«. 

Neue Befehle des 
68020ers 

Sicher nicht nur für Hochsprachen-Compiler 
interessant ist der Befehl »rtd«. Er arbeitet ge¬ 
nau wie »rts«, hat jedoch einen Parameter. Mit 
»rtd #4« wird der Stack um vier erhöht und 
dann erst zurückgesprungen. Er entspricht al¬ 
so »addq.l #4,sp« und »rts«. 

Ähnlich vereinigt auch der neue Befehl 
»extb.l dx« zwei Kommandos in sich. Er er¬ 
weitert nämlich ein Datenregister vorzeichen¬ 
richtig von 8 auf 32 Bit. Bisher war dies nur 
über die getrennten Befehle »ext.w dx« und 
»ext.l dx« möglich. 


Viel Arbeit ersparen auch die sogenannten 
Bitfield-Befehle. Man kann mit ihnen mehre¬ 
re Bits auf einmal beeinflussen, ohne sich an 
Byte-, Word- oder Longwordgrenzen zu halten. 
So entsprechen »bfchg«, »bfclr«, »bfset« und 
»bftst« genau ihren Ein-Bit-Kollegen. Syntak¬ 
tisch gibt es jedoch Unterschiede: So stehen die 
Bitnummern nicht vor der Adresse, sondern in 
geschweiften Klammern dahinter. Das folgen¬ 
de Beispiel setzt die Bits 3 bis 9 von dO. un¬ 
gewöhnlich ist dabei die Numerierung der Bits. 
Hier wird von links nach rechts gezählt, also 
bei Bit #31 begonnen, das die Nummer 0 er¬ 
hält. Das ist verständlich, wenn man bedenkt, 
daß man nicht an die üblichen Byte-Grenzen 
gebunden ist. wenn Bits im Speicher manipu¬ 
liert werden. 

Da wir von links zählen ist Bit #9 von dO das 
22. Bit des Feldes. Die Länge des zu setzenden 
Bitfeldes ist 7 Bits. Also heißt der Befehl: 
bfset dO{22:7}. 

Mit der gleichen Syntax arbeiten »bfclr«, 
»bfchg« und »bftst«. Zum Kopieren ganzer Bit¬ 
felder stehen drei weitere Befehle zur Verfü¬ 
gung: Mit »bfexts« und »bfextu« werden Bit¬ 
felder aus dem Speicher in ein Datenregister 
geschrieben, wobei je nach Befehl das erste Bit 
als Vorzeichenbit beachtet wird. Umgekehrt 


loclea 

sub.l a2,a2 

move.l LocBase,d0 

moveq #0,dO 

macro 

jsr OpenCatalogA(a6) 

beq.s .exit 

move.l al,dl 

pea \1 

lea Catalogl,aO 

move.l d0,a6 

lea LOCALE START,aO 

bsr GetString 

move.l d0,(a0) 

move.l Catalogl,aO 

sub.l aO,dl 

move.l (sp)+,\2 


jsr CloseCatalog(a6) 

beq.s .Getlt 

endm 

.exit 

move.l Localel,aO 

.Loop 


rts 

jsr CloseLocale(a6) 

tst.b (aO)+ 

OpenLocale equ -156 


.exit 

bne.s .Ok 

OpenCatalogA equ -150 

Localel 

rts 

addq.l #l,d0 


dc.l 0 


,0k 

OpenCatalog 

Catalogl 

*. 

subq.l #l,dl 

move.l LocBase,dO 

dc.l 0 


bne.s .Loop 

beq.s .exit 

CatName 

GetCatalogStr equ -72 

.Getlt 

move.1 dO, a6 

dc.b '1200Demo.catalog',0 


move.l Catalogl,aO 

sub.l a0,a0 

even 

GetString 

jsr GetCatalogStr(a6) 

jsr OpenLocale(a6) 


movem.l d0-dl/a0-al/a6,-(sp) 

move.l dO,24(sp) 

lea Localel,aO 

*. 

move.l LocBase,dO 

.Ende 

move.l dO,(aO) 


beq.s .Ende 

movem.l (sp)+,d0-dl/a0-al/a6 

beq.s .exit 

CloseCatalog equ -36 

move.l d0,a6 

rts © 1993 M&T 

move.1 dO,aO 

CloseLocale equ -42 

move.l Catalogl,dO 
beq.s .Ende 

Listing 5: Locale in voller 

lea CatName,al 

FreeCatalog 

move.l 24(sp),al * String 

Aktion 
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kann man auch aus dem Register ein Feld wie¬ 
der in den Speicher scheiben. Hier gibt es nur 
einen Befehl, da das Vorzeichen des Registers 
im Bitfeld keine Rolle spielt. Der Befehl heißt 
»bfins«. 

Ein letzter, etwas ausgefallenerer Befehl ist 
abgekürzt »bfffo« und steht für »bit field - find 
first one«, als finde die erste »1« eines Bitfelds. 
Die Nummer dieses Bits wird dann in ein Da¬ 
tenregister geschrieben. Ist das Bitfeld leer, so 
steht die Breite des Bitfeldes plus I im Daten¬ 
register. 

Hier noch einige Tricks speziell für Assem¬ 
blerprogrammierer. Besonders beliebt sind 
sog. Peep-Hole-Optimisations. also Guckloch¬ 
optimierungen. die nur einen Befehl verbessern 
und immer gültig sind. Am bekanntesten ist 
wohl die Verwendung der Quick-Befehle. z.B. 
moveq. addq und subq. Im direkten Gebrauch 
werden sie von einigen Assemblern automa¬ 
tisch verwendet. Schwieriger sind jedoch an¬ 
dere Fälle, bei denen der Sinn einer Quick-An¬ 
weisung nicht ganz so offensichtlich ist. Statt 
des - einfach aussehenden - Befehls 
add.l #100,dO 
kann man auch 
moveq #100,dl 
add.l dl,d0 

schreiben, was sowohl vom Code her kürzer als 
auch schneller von der Ausführung ist. 

Noch schneller geht dies mit Adreßregistern. 
Hier kann man statt 
add.l #100,aO 

auch nur Word-Breite verwenden, da Adreß¬ 
register automatisch auf Langwort-Breite er¬ 
weitert werden: 
add.w #100,dO 

Noch schneller ist jedoch 
lea 100(aO),aO 

Durch oben erwähnte Eigenschaft ist auch 
eine Art »moveq« für Adreßregister möglich. 
Nicht ganz so schnell, aber dafür mit voller 
Wort-Breite: 
move.w #1000,aO. 

Darf es noch etwas 
schneller sein? 

Diese Optimierungen arbeiten natürlich auch 
mit der Subtraktion. Im Gegensatz zu diesen 
Befehlen sind die Multiplikations- und Divisi¬ 
onsbefehle äußerst langsam (bis zu 140 Taktzy¬ 
klen) und deshalb bis zu 35mal langsamer als 
andere Befehle. Vor jeder Multiplikation soll¬ 
te deshalb getestet werden, ob einer der Fak¬ 
toren Null oder Eins ist, was eine Menge Re¬ 
chenarbeit erspart. 

Mit den Bitschiebebefehlen in Kombination 
mit Addition und Subtraktion kommt man oft 
schneller ans Ziel. Dies ist vor allem in Schlei¬ 
fen wichtig, die oft durchlaufen werden 
und/oder besonders zeitkritisch sind. Hier 
empfiehlt es sich, so viel Rechenarbeit wie 
möglich vor dem Schleifenrumpf zu erledigen 
und die Ergebnisse eventuell in Registern zu 
speichern. Das Registerretten am Anfang und 
Ende der Schleifen geht bestimmt schneller, als 
eine ständige Neuberechnung. 


Allgemein bekannt ist inzwischen auch, daß 
der Befehl »clr« nur in Ausnahmefällen auf Re¬ 
gister verwendet werden sollte, nämlich dann, 
wenn nur ein einziges Byte oder Word gelöscht 
werden soll. Für Datenregister benutzt man 
»moveq #(),dx« und da Adreßregister sowieso 
nicht zu den Adressierungsarten des »clr«-Be- 
fehls gehören, wurde folgende Lösung gefun¬ 
den: 

sub.l ax,ax 

Rückkehrbefehl: kurz 
aber unnötig 

So kurz der Befehl »rts« auch ist. oft kann 
er eingespart werden. Wenn direkt davor ein 
»bsr« oder »jsr« steht, kann man diese in »bra«, 
bzw. »jmp« umwandeln. Dadurch spart man 26 
Buszyklen und außerdem zwei Byte Code. 


Auch wenn sich dies nicht viel anhört, so kön¬ 
nen diese beiden fehlenden Bytes weitere in¬ 
direkte Verkürzungen nach sich ziehen. Denn 
je kompakter der Code ist, desto häufiger kön¬ 
nen Kurzformen für Sprungbefehle angewandt 
werden, was wieder zu einer Verkürzung 
führen kann, usw. 

Noch ein Trick mit dem »rts«-Befehl: Wenn 
Sie eine Routine anspringen wollen, deren 
Adresse Sie erst im Verlauf des Programms be¬ 
stimmen oder errechnen, können Sie dies mit 
»jmp (aO)« verwirklichen. Wenn Sie jedoch al¬ 
le Register für die Übergabe von Daten benöti¬ 
gen, hilft nur ein eleganter Trick. Legen Sie die 
Sprungadresse mit »pea aO« auf den Stack, 
schieben Sie Ihren Übergabewert nach aO und 
verwenden sie dann »rts«. Dieses holt die ver¬ 
meintliche Rücksprungadresse vom Stapel und 
springt ihre Routine an. Wollen Sie »jsr (aO)« 
ersetzen, so müssen Sie vor der Adresse der 



Tabelle 2: die neuen Befehle 

Name 

Operatoren 

Funktion 

BFCHG 

<ea>{bo.:bfl.} 

Bitfeld invertierten 

BFCLR 

<ea>(bo:bfl) 

Bitfeld löschen 

BFEXTS 

<ea>{bo:bfl},dn 

Bitfeld vorzeichenrichtig übertragen 

BFEXTU 

<ea>{bo:bfl},dn 

Bitfeld vorzeichenlos übertragen 

BFFFO 

<ea>{bo:bfl},dn 

Finde erste 1 im Bitfeld 

BFINS 

dn,<ea>{bo:bfl} 

Bitfeld aus dn in den Speicher schreiben 

BFSET 

<ea>{bo:bfl} 

Bitfeld setzen 

BFTST 

<ea>{bo:bfl} 

Bitfeld testen 

DIVS.L 

<ea>,dn 

-- 

vorzeichenbehaftete Division (32 Bit+32 Bit) 

DIVU.L 

<ea>,dn 

vorzeichenlose Division (32 Bit+32 Bit) 

MULS.L 

<ea>,dn 

vorzeichenbehaftete Multiplikation (32 Bit»32 Bit) 

MULU.L 

<ea>,dn 

vorzeichenlose Multiplikation (32 Bit-32 Bit) 

DIVS.L 

<ea>,dr:dq 

vorzeichenbehaftete Division (64 Bit+32 Bit) 

DIVSL.L 

<ea>,dr:dq 

vorzeichenbehaftete Division (32 Bit+32 Bit) 

DIVU.L 

<ea>,dr:dq 

vorzeichenlose Division (64 Bit+32 Bit) 

DIVUL.L 

<ea>,dr:dq 

vorzeichenlose Division (32 Bit+32 Bit) 

MULS.L 

<ea>,dr:dq 

vorzeichenbehaftete Multiplikation (32 Bit-32 Bit) 

MULU.L 

<ea>,dr:dq 

vorzeichenlose Multiplikation (32 Bit»32 Bit) 

PACK 

-(Am),-(An),#x 

bilde gepackte Dezimalzahl und addiere # 

xPACK 

Dm,Dn,#x 

“ 

UNPK 

-(Am),-(An),#x 

bilde ungepackte Dezimalzahl und addiere # 

xUNPK 

Dm,Dn,#x 

" 

CHK2.X 

grenzen,ea 

wie chk, nur mit zwei Grenzen 

CMP2.X 

grenzen,ea 

wie emp, nur mit zwei Grenzen 

EXTB.L 

dn 

erweitert dn.b direkt vorzeichenrichtig auf dn.l 

RTD 

#x 

wie rts, addiert aber vorher #x auf den Stapel 

MOVE 

ccr.ea 

schreibe Conditioncoderegister nach ea 

BKPT 

#x 

Breakpoint Nummer #x setzen 

CALLM 

#x,ea 

Aufruf eines Moduls mit Deskriptor 

CAS.x 

Dc.Du.ea 

Wenn Dc=ea, dann Du->ea, sonst ea->Dc 

CAS2.X 

Del ö2,Du1 ü£,(Ri):(Rn 
Rc,Rn 

wie CAS nur mit zwei Vergleichswerten 

MOVEC.x 

Lese Supervisor-Register 

MOVEC.x 

Rn,Rc 

Lade Supervisor-Register 

MOVES.x 

Rn,ea 

Lade alternativen Adreßbereich 

MOVES.x 

ea,Rn 

Lese alternativen Adreßbereich 

RTM 

Rn 

Rückkehr aus einem Modul und Löschen des Deskriptors 

TRAPcc 

ea 

bedingter Sprung in eine Exception 

.) erstes Bit des Feldes (0-31 oder Datenregister) 

.) Größe des Bitfeldes in Bits (1-32) 
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Routine die wirkliche Rücksprungadresse auf 
dem Stack ablegen. zum Beispiel so: 
pea WirklicheAdresse 
pea SubRoutine 
rts 

WirklicheAdresse 

* 

SubRoutine 

» 

rts 

Was weiter zu einer erhöhten Kompaktheit 
des Codes führt, ist die PC-relative Adressie¬ 
rung. Dadurch sparen Sie pro »move« oder 
»Iea« zwei Byte ein, wenn Sie auf Daten in¬ 
nerhalb des Programms zugreifen. Außerdem 
werden Programme dadurch kürzer, daß im Re- 
loc-Hunk, einer Tabelle mit 4-Byte-großen 
Offsets, ein Eintrag fehlt. Noch kürzer wird das 
Programm, wenn es total pc-relativ geschrieben 
wurde. Dann entfällt nämlich auch der Re- 
loc32-Hunk. 

Das Problem dabei ist. daß man keine PC-re- 
lativen Adressen als Ziel verwenden darf. 
Deshalb verwendet man besser 
lea Ziel_Label(pc),A 
x move.l Rx,(Ax) 
anstelle von 
move.l Rx,(Label).l 

Das ist genauso lang, vermeidet aber einen 
Eintrag im Reloc-Hunk. Ein weiterer Vorteil 
von 100% PC-relativen Programmen ist. daß 
sie beliebig im Speicher verschoben oder ko¬ 
piert werden dürfen. 

Wenn Sie Programme jetzt noch so schrei¬ 
ben. daß sie nie schreibend auf Daten zugrei¬ 
fen, die im Programm liegen, können Sie bei 
den Protection-Bits getrost das Pure-Bit setzen. 
Es bewirkt, daß Ihr Programm ständig im Spei¬ 
cher bleiben kann und nicht jedesmal nachge¬ 
laden werden muß. Nach diesem Prinzip ar¬ 
beiten viele CLI-Befehle. Anstelle eines Da- 
lenblocks im Programm, muß dieser jedesmal 
neu im Speicher angelegt werden. Am besten 
definieren Sie Ihren Speicherbereich als eige¬ 
ne Struktur, auf die Sie über Offsets zugreifen. 

Falls Sie in einer solchen oder anderen 
Struktur Flags verwenden wollen, also Boole- 
an-Variablen, die entweder TRUE oder FAL- 
SE sind, so sollten Sie dafür keine einzelnen 
Bits verwenden, sondern Bytes. Zwar ver¬ 
brauchen Bits natürlich weniger Speicher als 
Bytes. Dennoch ist die Methode mit den Bytes 
wesentlich kürzer, wenn die Flags untereinan¬ 
der keine bestimmte Beziehung haben. Sowohl 
das Setzen und Löschen als auch das Testen der 
Bytes ist schneller und kürzer als die Bitbe¬ 
fehle, da man keine Bitnummer angeben muß. 
Also lieber 
tst.b Flag(Ax) 

als 

btst #0,Flag(Ax). 

Generell ist beim Optimieren von Assem- 
blercode immer wieder Phantasie gefragt. 
Denn nicht diese kleinen Optimierungen ma¬ 
chen ein Programm so schnell, sondern die ver¬ 
wendeten Algorithmen. Denken Sie also schon 
vor dem Programmieren schwieriger Pro¬ 
grammteile daran, eine möglichst effiziente 
Unterroutine zu schreiben. 


Weil der Startupcode von Programmen im¬ 
mer wieder einen eventuellen Workbenchstart 
unberücksichtigt läßt, hier noch eine korrekte 
Variante. Wichtig ist vorallem das Zurück¬ 
schicken der WBMsg. Denn dadurch wird der 
gesamte Programmspeicher wieder freigege¬ 
ben. Wenn vorher nicht das Multitasking ab¬ 
geschaltet wird, kann der Speicher überschrie¬ 
ben werden, in dem die letzen Befehle bis zum 
'rts' stehen. Nachdem der Task beendet wurde, 
erlaubt das Betriebssystem das Multitasking 
natürlich wieder. 

ÄÄ - viel Power mit 
zwei »A« 

Auf den folgenden Seiten gehen wir nun auf 
die Programmierung der neuen Grafikfähig¬ 
keiten ein. Die erste Bekanntschaft mit den 
neuen AA-Chips macht man bereits beim Öff¬ 
nen eines Screens, bzw. direkt davor. Schon bei 
der Wahl des Darstellungsmodus stoßen wir 
auf eine verwirrende Vielfalt von Möglichkei¬ 
ten. Unter OS3.0 gibt es inzwischen (offiziell) 
neun verschiedene Darstellungstypen. Theore¬ 
tisch kann sich jeder seinen privaten Anzeige¬ 
modus schreiben, doch sollten die Vorgegebe¬ 
nen in der Regel ausreichen. In unserem Bei¬ 
spiel öffnen wir einen HiRes-HAMS Screen 
ohne besondere Klassifizierung des Modus 
(1D=$00008804). Auf einem normalen Amiga 
wird der Screen in PAL oder NTSC interlace 
geöffnet. Besitzer eines VGA-Monitors. die 
»Modus übernehmen« in den »IPrefs« ange¬ 


schaltet haben, erhalten einen DbIPAL bzw. 
DblNTSC Screen. Konnte man früher den 
HAM-Modus nur in den niedrigen Auflösun¬ 
gen nutzen, so gibt es diese Beschränkungen 
nun nicht mehr. Eine Ausnahme bildet der 
A2024 Modus: er kann natürlich keine Farben 
darstellen, da dies der Monochrom-Modus ist. 
Trotzdem stehen uns noch genug verschiede¬ 
ne Auflösungen zur Verfügung (siehe Tabelle 
Seite 16). Seitdem Commodore den neuen 
1942 Multisync-Monitor ausliefert, existieren 
neue Monitortreiber, die extra auf diesen Mo¬ 
nitor angepaßt wurden. Mit dem Mitsubishi 
EUM 1941A sehen diese Modi dann etwas 


seltsam aus: das Bild ist wesentlich zu klein, da 
sich die Frequenzen geändert haben. Außerdem 
sind zwei neue Auflösungen dazugekommen: 
von nun an kann man auch im Euro72- und 
Multiscan-Modus niedrige Auflösungen wie 
320x200 nutzen. Welcher Modus am Ende 
überhaupt benutzt werden kann, hängt vom 
verwendeten Monitor ab. Genaue Angaben dar¬ 
über finden Sie am Ende des Artikels. 

Ab OS2.0 ist es möglich, Screens gleich 
beim Öffnen mit den richtigen Farben zu be¬ 
legen. Dazu muß man dem System mit dem 
Tag »SA_Colors« eine ColorSpec-Liste über¬ 
geben. Da mit AA und OS3.0 die Farbwerte 
nicht mehr 12 Bit. sondern 24 Bit breit sind, 
sollte man diese Möglichkeit nicht mehr be¬ 
nutzen. Dafür gibt es jetzt das Tag SA_Co- 
lors32, mit dem ein ColorTable angegeben 
werden kann. Der Au (bau einer solchen Ta¬ 
belle sieht dabei wie folgt aus: 

Das erste Word der Tabelle gibt dem System 
an, wieviel Farben geändert werden sollen und 
das zweite Word gibt an. ab welcher Farb- 
nummer dies geschehen soll. Nun folgen je¬ 
weils 3 Longwords pro Farbe mit den 32 Bit 
großen Rot-, Grün- und Blauwerten (RGB). 
Dabei ist zu beachten, das die einzelnen Farb¬ 
werte linksbündig sind. Obwohl der Amiga im 
Moment nur 8 Bit Farbwerte kennt, müssen al¬ 
le 32 Bit angegeben werden. Statt $00000081' 
muß man also $8f8f8f8f angeben. 

1 WORD : Anzahl der Farben im Table (n) 

1 WORD : erste Farbnummer des Table 
n x 3 L0NG : linksbündige Rot, Grün und 
Blauwerte der Farbe 


Um zu verhindern, daß beim Bildaufbau 
(z.B. beim Verschieben eines Fensters) mit 
mehreren Bitplanes das bekannte Flackern 
auftritt, geben wir den Tag »SAJnterleaved« 
mit TRUE an. Bisher wurde jede Bitplane ein¬ 
zeln im Chip-Ram untergebracht. Dies konnte 
dazu führen, daß die einzelnen Bitplanes weit 
voneinander entfernt waren. Die neuen Inter- 
leaved-Bitmaps gehen deshalb einen anderen 
Weg. Alle Bitplanes werden als ein großer 
Block im Chip-Ram belegt. Die Besonderheit 
daran ist der Aufbau dieser Bitplanes: Alle Bit¬ 
planes werden wie ein Kartenspiel »gemischt«, 
d.h. erst die l.Scanline der 1.Bitplane, dahin- 


Forbid 

equ -132 

move.l d0,d7 

FindTask 

equ -294 

.VonCLI 

WaitPort 

equ -384 

movem.l (sp)+,dO/aO 

GetMsg 

equ -372 


ReplyMsg 

equ -378 

StartProgramm 

pr^MsgPort 

equ 92 

*** hier steht jetzt das *** 

pr_CLI 

equ 172 

*** eigentliche Programm '•* 

Start 


Ende 

movem.l 

dO/aO,-(sp) 

tst.l d7 

moveq 

I0,d7 * WBMsg 

beq.s .exit 

move.1 

4.w,a6 

move.l 4.w,a6 

sub.l 

al,al 

jsr Forbid(a6) 

jsr 

FindTask(a6) 

move.l d7,al 

move.1 

dO,aO 

jsr ReplyMsg(a6) 

tst.l 

pr^CLI(aO) 

.exit 

bne.s 

.VonCLI 

moveq I0,d0 

.VonWB 


rts ; © 1993 M&T 

lea 

jsr 

pr_MBgPort(aO),aO 

WaitPort(a6) 

Listing 6: Programnistart von der 

jsr 

GetMsg(a6) 

Workbench 
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ter liegt dann gleich die I.Scanline der 2.Bit- 
plane, dann die der Dritten usw. Erst wenn al¬ 
le Bitplanes ihre I.Scanline angeordet haben, 
geht es mit der zweiten Scanline weiter. Wer 
dachte, daß die Bitmap-Struktur und die Bit¬ 
planes immer gleich bleiben (müssen), der wird 
sein blaues Wunder erleben. Dies bedeutet 
auch, daß man auf keinen Fall mehr die in der 
Screen-Struktur bei sc_BitMap (Offset 184) 
eingebettete Bitmap benutzt, da in der Zukunft 


die mit dem Wert $ 1 f in DO aufgerufen wird 
und AA anschaltet. Da die Funktion nur einmal 
aufgerufen werden kann, sollte man sie nur für 
den Bootblock verwenden (in der Regel steht 
ja »SetPatch« in der »Startup-Sequence«), 

Um die Farbverläufe dann in das Fenster zu 
bekommen, verwenden wir die Funktion »Wri- 
tePixelArray8()«. da dies wesentlich schneller 
ist als zig-mal »SetAPenO« und »WritePixelO« 
aufzurufen... Diese Funktion schreibt die in ei¬ 


wendeten Bitplanes. Der HAM8-Modus hat 
zwar acht Bitplanes, jedoch besitzt seine Palette 
nur 64 statt 256 verschiedene Farben. Diese 
Farben kann man dafür wie gewohnt anspre¬ 
chen. d.h. »SetAPenO« setzt mit den Werten 0 
bis 63 (binär %000()00(X) - %0()111111) die je¬ 
weilige Farbe der Palette und WritePixelO 
zeichnet einen Punkt in dieser Farbe. Die Be¬ 
sonderheit liegt in den beiden oberen Bits, den 
sog. Modify-Bits. Zusammen ergeben sie einen 



»A1200Demo«: Unser Demoprogramm, das dieses Bild erzeugt hat, nutzt die speziellen Eigenschaften des neuen Betriebs¬ 
systems und der Grafikchips. Sie linden es auf der PD-Diskette zum Heft mit kompletten Assembler-Quellcode. 


deren Struktur in der Zukunft noch größer 
wird. Die richtige BitMap bekommt man bes¬ 
ser über den RastPort des Screens. Außerdem 
wird sich der Aufbau der BitPlanes ebenfalls 
ändern. Man denke nur an die Chunky Pixel 
Modi von Grafikkarten. 

Wenn wider Erwarten unsere Screens nicht 
geöffnet werden konnten oder der Rechner so¬ 
gar abstürzt, so kann dies mehrere Ursachen 
haben: z.B. war die DisplaylD falsch, weil der 
Monitortreiber nicht gesetzt ist oder das AA- 
Chip Set nicht aktiviert und deshalb der ge¬ 
wünschte HiRes-HAM8 Modus nicht möglich 
war. Beim Booten schaltet der Amiga in den 
ECS-Modus, um für Spiele, die über den 
Bootblock starten, kompatibel zu bleiben. Erst 
mit Hilfe des Befehls »SetPatch« werden die 
neuen Fähigkeiten aktiviert. Das bedeutet aber 
nicht, daß alle Programme, die über den Boot¬ 
block starten. AA nicht benutzen können. Für 
diese Fälle gibt es die Funktion »SetChi- 
pRev()« (Offset -888) der »graphics.library«, 


ner Tabelle byteweise angegebenen Farbnum- 
mern als Pixel in die angegebene Fläche. 

Soweit sollte alles klar sein. Doch wie 
bringt man nun den HAM8 Modus dazu, daß 
er genau das darstellt, was wir haben wollen? 

Wie funktioniert 
HAM8? 

Durch einfaches Setzen eines Punktes in ei¬ 
ner mit »SetAPenO« gewählten Farbe geht es 
nicht. Wer sich noch nie mit dem HAM Mo¬ 
dus befaßt hat, wird am Anfang Probleme ha¬ 
ben seine Funktionsweise zu verstehen. Das 
Prinzip ist aber nicht so schwer wie es sich an¬ 
hört. Die Schwierigkeit liegt darin, dieses 
Wissen so umzusetzen, daß am Ende auch das 
gewünschte Ergebnis herauskommt. 

Die Funktionsweise der beiden HAM-Modi 
(HAM6 und HAM8) ist nahezu identisch. Der 
einzige Unterschied liegt in der Anzahl der ver- 


Modify-Wert zwischen 0 und 3. Ist dieser Null, 
dann setzt das System die durch die unteren 
sechs Bits angegebenen Farbe aus der Palette, 
also 0 bis 63. Bei einem anderen Modify-Wert 
(I bis 3) kommt die Besonderheit des HAM- 
Modus zur Geltung. Dann wird die Farbe des 
linken Nachbarpixels übernommen, verändert 
und ergibt somit die Farbe des Punktes, der ge¬ 
setzt wird. 

Diese Veränderung ist der Knackpunkt des 
Ganzen, denn sie unterliegt einer strengen Re¬ 
gel: Es kann jeweils nur der Rot- oder Grün¬ 
oder Blauwert der Farbe des linken Pixels 
geändert werden, niemals aber zwei oder alle 
drei Werte gleichzeitig. Das hat zur Folge, das 
ein weißer Pixel nicht in einem Schritt zu ei¬ 
nem roten Pixel modifiziert werden kann, da 
dazu der Grün- und Blauwert gleichzeitig auf 
Null gesetzt werden müßte. In einem solchen 
Fall müßte man eine Originalfarbe aus der Pa¬ 
lette nehmen. Beim Modify-Wert 1 wird der 
ursprüngliche Blauwert durch den mit Hilfe der 
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Tabelle 3: Bildschirmmodi 


AA-Modus 

VGAOnly 

Auflösungen 

Mode-ID 

max.sichtbar 

VGAOnly 

NTSC 


LoRes 

=$00000000 

362 x241 

. 

60 Hz 

- 

HiRes 

=$00008000 

724 x241 

- 

15,72 kHz 


SuperHiRes 

=$00008020 

1448 x241 

- 

ID=$00011000 


Interlace 

=$00000004 

1448 x482 

- 

PAL 


LoRes 

=$00000000 

362 x283 

- 

50 Hz 


HiRes 

=$00008000 

724 x283 

- 

15,60 kHz 

- 

SuperHiRes 

=$00008020 

1448 x283 

- 

ID=$00021000 


Interlace 

=$00000004 

1448 x566 

- 

MULTISCAN 


ExtraLoRes 

=$00000000 

164 x240 

164 x248 

58 Hz 

60 Hz 

LoRes 

=$00008000 

328 x240 

328 x248 

29,29 kHz 

31,44 kHz 

Productivity 

=$00008020 

656 x240 

656 x248 



Nonlnterlace 

=$00000004 

656 x480 

656 x495 

ID=$00031000 


Interlace 

=$00000005 

656 x960 

656 x990 

EUR072 


ExtraLoRes 

=$00000000 

164 x200 

164 x207 

69 Hz 

70 Hz 

LoRes 

=$00008000 

328 x200 

328 x207 

29,32 kHz 

31,43 kHz 

Productivity 

=$00008020 

656 x200 

656 x207 



Nonlnterlace 

=$00000004 

656 x400 

656 x414 

ID=$00061000 


Interlace 

=$00000005 

656 x800 

656 x828 

EUR036 


LoRes 

=$00000000 

362 x200 


73 Hz 

- 

HiRes 

=$00008000 

724 x200 


15,76 kHz 

- 

SuperHiRes 

=$00008020 

1448 x200 

- 

ID=$00071000 


Interlace 

=$00000004 

1448 x400 

- 

SUPER72 


LoRes 

=$00000000 

228 x307 

228 x315 

71 Hz 

72 Hz 

HiRes 

=$00008000 

456 x307 

456 x315 

23,21 kHz 

24,62 kHz 

SuperHiRes 

=$00008020 

912x307 

912x315 

ID=$00081000 


Interlace 

=$00000004 

912x614 

912x630 

DblNTSC 


LoRes 

=$00000000 

360 x226 

360 x233 

58 Hz 

59 Hz 

HiRes 

=$00008000 

720 x226 

720 x233 

27,66 kHz 

29,02 kHz 

Nonlnterlace 

=$00000004 

720 x452 

720 x467 

ID=$00091000 


Interlace 

=$00000005 

720 x904 

720 x934 

DbIPAL 


LoRes 

=$00000000 

360 x275 

360 x282 

48 Hz 

50 Hz 

HiRes 

=$00008000 

720 x275 

720 x282 

27,50 kHz 

29,45 kHz 

Nonlnterlace 

=$00000004 

720 x550 

720 x564 

ID=$000A1000 


Interlace 

=$00000005 

720x1100 

720x1128 


Zusätzliche Farbanzeigetypen in allen Auflösungen: 


ExtraHalfBrite = $00000080 (nur mit 6 Bitplanes) 
HAM = $00000800 (nur mit 6 o. 8 Bitplanes) 
DualPlayField = $00000400 
DualPlayField2 = $00000440 


unteren 6 Bits angegebenen Blau wert ersetzt. 
Gleiches gilt für einen Wert von 2 (Grün) und 
3 (Rot). 

Wenn soweit alles klar ist, sollte man ei¬ 
gentlich auch das Problem sehen, das dabei 
auftritt: Seit AA kann eine Farbe jeweils 256 
verschiedene RGB-Abstufungen besitzen, also 
eine Farbtiefe von 3 x 8 Bit = 24 Bit. Doch im 
HAM8-Modus werden die einzelnen Farbwer¬ 
te nicht durch 8-Bit- sondern nur durch 6-Bit- 
Werte ersetzt. Die unteren beiden Bits des je¬ 
weiligen Farbwerts bleiben dabei unangetastet. 
Man kann also nicht mehr alle Farbwerte set¬ 
zen. sondern ist auf eine Modify-Tiefe von 6 
Bit beschränkt. 

An dieser Stelle sollte man gleich das 
Gerücht über Bord werfen, es können somit nur 
262 144 Farben angezeigt werden. Das stimmt 
nicht. Die 64 Grundfarben in der Palette sind 
immer noch reine 24-Bit-Farben. bei denen 
auch die unteren zwei Bit gesetzt sein können. 
Bei kluger Wahl seiner Grundpalette hat man 
Farben mit allen 64 möglichen Kombinationen 
der untern 2 Bits in allen drei Grundfarben (2 
hoch 2*3 = 64). Da diese beim Modifizieren er¬ 
halten bleiben und nicht gelöscht werden, 
können selbstverständlich wesentlich mehr 
Farben dargestellt werden (bei einer Auflösung 
von 1280 512 Pixeln sind dies bis zu 655 360 
verschiedene Farben). 

Genau diesen Trick verwenden wir nun in 
unserem Demoprogramm. Dabei machen wir 
uns eine Schwäche des Auges zunutze, das 
kleine Variationen einer Farbe nicht unter¬ 
scheiden kann. Dem Auge ist es egal, ob die 
Farbe Rot nun aus $ff Rot. $00 Grün und $00 
Blau zusammengesetzt ist. oder ob sie aus $ff 
Rot. $03 Grün und $03 Blau besteht. Da die un¬ 
teren zwei Bit im HAM8 nicht modifiziert wer¬ 
den. benutzen wir einfach vier Grundfarben für 
unseren Farbverlauf: $00. $00. $00: $01. $01. 
$01: $02. $02. $02 und $03. $03, $03. Somit 
sind die unteren zwei Bit bei den Rot-, Griin- 
und Blauwerten immer gleich gesetzt und 
man kann durch geschicktes Modifizieren alle 
265 Grautöne im HAM8 darstellen, wie im 
Bild zu sehen ist. Mit Hilfe des »Weich«-Gad- 
gets kann man den Trick an- und abschalten. 
Wird er abgeschaltet, hat man nur noch 64 
Grautöne und es treten leichte Farbsprünge auf. 
die man nun wieder sehen kann. 

Natürlich gilt für den HAM6-Modus ähnli¬ 
ches wie für HAM8, die hier möglichen 16 
Grundfarben sind ebenfalls 24-Bit Farben. Es 
können also weit mehr als 4096 Farben ange¬ 
zeigt werden. 

Seit OS3.0 kann man mit Hilfe der Prefe- 
rences den Standard »Busy Pointer« selber ma¬ 
chen. Doch wird dieser nicht automatisch in ei¬ 
genen Programmen vom System benutzt. Zum 
Setzen des BusyPointers oder eines anderen, 
beliebigen Mauspfeils gibt es drei neue Win¬ 
dow-Tags: 

Dem Tag »WA_Pointer« muß eine ExtSpri- 
te Struktur oder NULL angegeben werden. Bei 
NULL wird der System Mauspfeil gesetzt. Der 
Wartezeiger wird mit dem Bool-Tag »WA_Bu- 
syPointer« (TRUE) gesetzt. Mit »WA_Poin- 
terDelay« (ebenfalls ein Bool-Tag) teilen wir 


dem System mit. daß ein neuer Mauspfeil erst 
nach einer kurzen Verzögerung dargestellt 
wird, falls in der Zwischenzeit nicht eine er¬ 
neute Änderung stattfindet. Dies wird häufig 
beim Setzen des BusyPointers benutzt, damit 
der Mauspfeil nicht erst die Busy-Grafik zeigt 
um sofort darauf wieder ein anderes Aussehen 
anzunehmen, falls die Wartezeit sehr kurz war. 
Diese Tags können bei »OpenWindowTag- 
ListO« und bei »SetWindowPointerAO« ange¬ 
geben werden. 

Jetzt bleibt noch die Frage zu beantworten, 
wie man sich eine ExtSprite-Struktur beschafft, 
damit man nicht nur die System-Pointer setzen 
kann? Am einfachsten geht dies mit Hilfe von 


Objekten. Dazu verwenden wir die Funktion 
»NewObjectAO«; ihr übergeben wir den Zei¬ 
ger auf die Klasse des Objekts und eine Tagli¬ 
ste. Die Klasse wird mit Hilfe eines simplen 
String definiert, in unserem Fall »pointerclass«. 
Über die Tags geben wir alle wichtigen Daten 
an. Die BitMap, die das Aussehen des Pointers 
bestimmt, wird mit dem Tag »POINTER- 
A_BitMap« gesetzt. Den Offset des Hotpoints 
geben wir mit »POINTERA_XOffset« und 
»POINTERA_YOffset« an. 

Bisher waren Sprites 16 Pixel breit, also ein 
Word breit. Mit AA können es auch 32 (zwei 
Words) und 64 Pixel (vier Words) sein. Diese 
Breite geben wir mit Hilfe des Tags »POIN- 
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TERA_WordWidth« an, und zwar, wie der Na¬ 
me sagt, nicht in Pixel sondern in Words (1,2 
oder 4). Ist die Breite der BitMap kleiner als die 
Wordbreite, wird der Rest mit Null-Bytes aus¬ 
gefüllt. ist sie größer, wird der Rest der BitMap 
abgeschnitten. Für die Höhe bestehen keine Be¬ 
schränkungen, diese wird einfach durch die 
BitMap angegeben. Nun gibt die Breite aber 
nicht automatisch auch die Auflösung an. Dies 
geschieht mit den beiden Parametern »POIN- 
TERA_XResolution« und »POINTERA_YRe- 
solution«. 

Ein X-Wert von Null entspricht der ECS- 
Auflösung (LoRes, nur auf SuperHires-Screens 
HiRes). Eine »1« ist immer eine LoRes-Auf- 
lösung des Sprites, »2« immer HiRes und »3« 
SuperHiRes. Bei »4« paßt sich der Sprite der 
Auflösung des Screens an, auf dem er sich ge¬ 
rade befindet. Durch den Y-Wert gibt man die 
Anzahl der sichtbaren Pointerlines an. Diese 
macht sich allerdings erst auf 30-kHz-Screens 
bemerkbar, da auf den normalen Screens die Y- 
Auflösung immer LoRes ist (Y-Wert = »0«). 
Bei »2« erhöht sich die darstellbare Höhe des 
Sprites bei 30-kHz-Screens auf 400 bis 480 
Lines. Setzt man den Wert »4« ein. paßt sich 
die vertikale Auflösung der des Screens an, 
wenn dies möglich ist. 

Super-Sprites für 
Spiele 

Am besten experimenieren Sie etwas mit den 
Werten und dem Aussehen des Pointers, da die 
Aufzählung oben sicherlich etwas trocken war 
(das Listing finden Sie auf der PD-Diskette 
zum Heft, siehe Seite 114). 

Nun wollen wir noch etwas auf die neuen 
Hardwareregister eingehen, damit auch Spiele- 
und Demoprogrammierer ihrer Fantasie freien 
Lauf lassen können. Es sei hier jedoch gleich 
gesagt, daß diese Belegung von Commodore 
nicht offiziell ist. Es kann sein, daß sich die Be¬ 
legung beim nächsten Chip-Set ändert. Wenn 
Sie sichergehen wollen, das Ihre Software in 
Zukunft läuft, kommen sie ohne Betriebssy¬ 
stem nicht mehr weit. 

Für die Darstellung des SuperHires-Modus 
ist Bit 6 des Registers $0100 zuständig, das zu 
diesem Zweck gesetzt sein muß. Bisher wurde 
die Anzahl der Bitplanes über die Bits 12 bis 
14 des Registers $0100 angegeben. Damit wa¬ 
ren aber nur keine bis sieben Bitplanes mög¬ 
lich. Um acht Planes zu verwenden, muß Bit 4 
desselben Registers gesetzt werden. Die Bits 12 
bis 14 werden dann nicht mehr beachtet. 

Ein größeres Problem bereitet die Angabe 
der neuen 24-Bit-Farbwerte. Auch bei AA wer¬ 
den nur 12-Bit-Werte von den Registern $0180 
bis $01 be verarbeitet, und zwar die oberen vier 
Bit des jeweiligen 8-Bit-RGB-Werts. Damit 
sind die Register noch 100% kompatibel zum 
ECS. Um die vollen 24 Bit zu setzen, braucht 
man das Bit 9 des Registers $0106. Wenn es 
gesetzt ist, werden die angegebenen Farbwer¬ 
te als die unteren vier Bits verwendet, sonst als 
die oberen vier. Beispiel: Setzen der Hinter¬ 
grundfarbe mit dem RGB-Wert $3f4cd9. Erst 


müssen die High-, dann die Low-Bits gesetzt 
werden, also: 

$01060000 
$0180034d 
$01060200 
$01800fc9 

(Wer nur 12-Bit Farbwerte verwendet, 
braucht sich um Bit 9 keine Sorgen machen, 
denn dieses wird nach jedem copjmp auf 0 ge¬ 
setzt, er kann wie bisher die Farben setzen) 

Ein ähnliches Problem wie bei den Farb¬ 
werten tritt durch die neuen, 256 Farben 
großen Paletten auf. denn es gibt weiterhin nur 
32 Farbregister ($018()-$01 be). Daher gibt es 
ab jetzt acht verschiedene 32-Farb-Paletten, die 
mit Hilfe der Bits 12 bis 14 des Registers 
$0106 ausgewählt werden. Der durch diese Bits 
definierte 3-Bit-Wert gibt die Nummer der Pa¬ 
lette an (0 bis 7). Beispiel: Es soll die Farbe 177 
auf $7a63f9 gesetzt werden. Dafür müssen wir 
das Register $01 a2 der Palette 5 ändern: 
$01065000 
$0180076f 
$01065200 
$01800a39 

Um die Auflösung von Sprites zu ändern, 
braucht man die Bits 7 und 6 von Register 
$0106. Dabei ist %00 und %01 LoRes, %1() 
HiRes und %11 SuperHiRes. 

Die Breite wird dagegen mit den Bits 3 und 
2 im Register $01 fc angegeben: %0() für 16 Pi¬ 
xel, %01 und % 10 für 32 Pixel und % 11 für 64 
Pixel Breite. Dabei muß beachtet werden, daß 
je nach Auflösung die Spriteliste anders gele¬ 
sen wird: bei 16 Pixeln Word-Weise, d.h. das 
erste Word ist wie bisher Kontrollregister 1 
(C1), das 2.Word C2. Gleiches gilt für die dann 
folgenden Pointerdaten. Bei 32 Pixeln wird al¬ 
les als Longword gelesen, also auch die Kon¬ 
trollregister CI und C2, die nun jeweils ein 
Longword sind und bei den 64 Pixel Breiten 
Sprites müssen die Kontrollregister und die Da¬ 
ten jeweils zwei Longwords groß sein. 

Schließlich kann man noch die Farbpalette 
der Sprites frei wählen. Dies wird durch die 
Bits 4-7 im Register $010c erreicht. Die damit 
möglichen Werte zwischen 0 und 15 und ge¬ 
ben die Nummer der jeweiligen I6-Farb-Palette 
an, d.h. die 32-Farb-Paletten werden nochmals 
aufgeteilt und ermöglichen es somit, daß Spri- 
tepaletten nicht erst mit Farbe 16. sondern 
schon mit Farbe 0 beginnen können. 

Geht es oder geht es 
nicht ? 

Nachdem wir jetzt genug über die Pro¬ 
grammierung des A1200 geredet haben, gehen 
wir nun etwas auf seine Bedienung ein. Be¬ 
nutzer ohne Festplatte werden nur sehr schwer 
die Möglichkeiten ausnutzen können, die ihnen 
ihr Computer bietet. Wie soll man auch eine 
Workbench mit 5 Disketten benutzen, wenn 
man nur ein oder zwei Laufwerke hat? Ganz zu 
schweigen von Programmen, die unbedingt 
dieses oder jenes von der Workbench benöti¬ 
gen und nicht separat laufen. Doch auch dieje¬ 
nigen. die ihren Amiga als Spielcomputer an¬ 
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sehen, werden an einer Festplatte kaum vor¬ 
beikommen. Inzwischen werden die Spiele im¬ 
mer länger, bieten mehr und bessere Grafik und 
Sound. Dies hat nur noch schlecht auf zwei 
oder drei Disketten Platz. Man denke nur an In¬ 
diana Jones IV oder Monkey Island II. Auf 
MS-Dosen werden Spiele bereits nach ihrer 
Länge und nicht nach ihrer Leistung beurteilt, 
hoffen wir. daß dies nicht auf dem Amiga Ein¬ 
zug hält. Übrigens behebt eine Festplatte eine 
etwas lästige Angewohnheit des Al200: die 
langen Wartezeiten bei einem Reset. Bis zu 10 
Sekunden kann es dauern, bis ein Al200 ohne 
Festplatte wieder »zu sich kommt«. 

Und wenn man dann endlich alles fertig an- 
geschlossen und die Workbench installiert, die 
ganzen Hilfsprogramme und Commodities 
(z.B. MagicMenu, CycleToMenu. WBGauge, 
KCommodity, usw....) eingebunden hat, dann 
darf man sich nicht wundern, wenn von den 
einstmals 2 MByte plötzlich nur noch 800 
KByte Speicher frei sind. Auf die 256-Farben 
-Workbench mit eingebundenen digitalisierten 
Bildern muß man dann erst recht verzichten. 
Doch auch mit einer Speichererweiterung kann 
man diesen Wunsch nur schwer realisieren. 
Selbst ein A4000 kommt bei 265 Farben und 
Euro72-Modus ins Schwitzen. Zum flüssigen 
Arbeiten ist eine Workbench mit höchstens 64 
Farben zu empfehlen. 

Wer dann noch genug Speicher hat, kann 
versuchen ein Hintergrundbild in der Work¬ 
bench einzubinden. Mit Hilfe von WBPattern 
eigentlich kein Problem. Einfach das Bild de¬ 
finieren. am besten noch ein zweites für die 
Schubladen-Fenster, und schon sollte die 
Workbench in neuem Glanz erscheinen. Aber 
irgendwas scheint nicht zu stimmen, im ersten 
Moment rührt sich nichts, obwohl die Bilder 
bereits nachgeladen wurden. Und wenn dann 
endlich das Bild erscheint, sieht es meistens 
nicht so aus. wie man es z.B. in DeluxePaint 
gesehen hat. Warum? 

Besser Bilder mit 256 
Farben 

Da die Workbench leider nur mit 256 Far¬ 
ben. und dann auch nur sehr langsam läuft, 
müssen die Bilder erst einmal umgerechnet 
werden. So kann man 256-Farben-Bilder, z.B. 
GIF-Bilder (i.a. auf PCs verwendetes Format), 
auch mit weniger Farben auf der Workbench 
direkt verwenden. Die Ergebnisse dieser Um¬ 
rechnung sind in der Regel befriedigend bis 
ausreichend. Es ist daher empfehlenswert, die 
gewünschten Bilder vorher mit Malprogram¬ 
men wie DPaint auf weniger Farben umzu¬ 
rechnen. 

Der Workbench-Screen gehört aber nicht nur 
dem System alleine. Da es sich um einen Pu- 
blic-Screen handelt, kann jedes Programm auf 
ihn zugreifen. Dazu ist seit OS3.0 das Palette- 
Sharing erlaubt, welches versucht, die Farb- 
wünsche der verschiedenen Programme mit¬ 
einander zu kombinieren. Wünscht ein Pro¬ 
gramm einen roten Farbton, kann es sich nicht 
einfach eine Farbe dafür nehmen und verän- 
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... übernommen und als 32-Farben-BiId gespeichert. Die Unterschiede sind deut¬ 
lich zu sehen (Workbench läuft mit 64 Farben): Das System verfälscht Farben. 


dem, das übernimmt nun das System. Wenn 
bereits eine ähnliche Farbe vorhanden ist, 
wird diese dem Programm zur Verfügung ge¬ 
stellt. Aus diesem Grund geht die Workbench 
etwas »geizig« mit den Farben um und ver¬ 
sucht. immer so wenig wie möglich für sich zu 
belegen. Bilder werden daher auf ein Mindest¬ 
maß an Farben reduziert. Selbst wenn man ein 
16-Farben-Bild auf einer 64-Farben-Work- 
bench einbindet, wird dieses noch auf weniger 
Farben reduziert. 

Vorsicht vor falschen 
Farben 

Bei Bildern mit feinen Schattierungen wer¬ 
den durch die Umrechnung viele Farben, die 
sich untereinander nur leicht unterscheiden, zu 
einer Farbe zusammengefaßt. Dadurch sehen 
solche Bilder sehr eintönig und primitiv aus. 
Bilder mit vielen verschiedenen Farben und ho¬ 
hem Kontrast haben das Problem, daß nicht ge¬ 
nug freie Farben zur Verfügung stehen. Daher 
kann es Vorkommen, daß manche Farben 
durch völlig andere ersetzt werden, z.B. Grün 
durch Grau. Auf jeden Fall muß man einige 
Versuche machen, bis ein gutes und annehm¬ 
bares Ergebnis erzielt wird. 

Ein anderes Problem kann die fehlende Uhr 
darstellen. Wer mit dem Amiga wenig arbeitet 
und meistens nur spielt, kann darauf sicherlich 
verzichten. Für die anderen Benutzer ist es 
schon ein Nachteil. Wer die neuste Kopie ei¬ 
nes Textes oder Programms sucht, kann mit der 
Datumsangabe beim List-Befehl in der Regel 
wenig anfangen. 

Eine mögliche Abhilfe können PD-Pro- 
gramme bringen, die im User-Startup die Zeit 
mit Hilfe einer Datei weiterzählen. Somit kann 
man die Datumsangaben wenigstens zum Ver¬ 
gleich heranziehen, welches nun das neuste 
Projekt ist. Natürlich ergeben sich schnell enor¬ 
me Abweichungen zur realen Zeit und erfordert 
immer wieder eine Anpassung. Zeitfanatiker, 
die die sekundengenaue Zeit auf der Work¬ 
bench brauchen, werden nicht um den Kauf ei¬ 
ner internen Uhr herumkommen, sei es als Ein- 
steckkarte oder als Zusatz bei Speichererwei¬ 
terungen und Turbokarten. 

Dateienvielfalt: 
Chaos oder Ordnung 

Da Programme, die das System voll ausnut¬ 
zen. auf immer mehr Dateien zugreifen, kann 
dem Benutzer schnell die Übersicht abhanden 
kommen, was wohin gehört. Es ist keine Sel¬ 
tenheit, wenn zum eigentlichen Programm 
noch Libraries, Kataloge. Guides. Rexx-Kom- 
mandos, Skripte und sonstige Datein kommen. 
Um das dadurch entstehende Chaos zu umge¬ 
hen. kann man sich eine Neuerung im Assign- 
Befehl zu Nutze machen: die »ADD«-Option. 

Man legt sich ein zweites »libs«-Verzeich- 
nis an. entweder auf einer anderen Partition als 
»SYS:« oder mit einem andern Namen. In der 
Regel gibt es noch eine Partition mit Namen 


»HD1:«, dort legen wir nun ein Libs-Ver- 
zeichnis an und tragen folgede Zeilen im 
User-Startup ein: 

C:Assign LIBS: HDl:libs 

C:Assign LIBS: SYS:libs ADD 

Nun werden mit »LIBS:« beide Libs-Ver- 
zeichnisse angesprochen, neue Libraries wer¬ 
den aber nur in HDLlibs kopiert. Damit hätte 
man schon mal die System-Libraries von der 
restlichen Library-Flut getrennt. Man könnte 
sogar die Libraries auf die Verzeichnisse der 
dazugehörigen Programme verteilen und mit 
Hilfe etlicher »Assign ADD«-Anweisungen 
dafür sorgen, daß das System alle Findet. 

Das ist aber nicht nur auf das Libs-Ver- 
zeichnis beschränkt, es geht mit jedem anderen 
ASSIGN ebenso. Besonders empfehlenswert 
ist es, das »C«-Verzeichnis so zu halbieren, 
denn wenn erst einmal 300 Befehle darin lie¬ 


gen, kann kaum einer mehr sagen, welcher Be¬ 
fehl zum System gehört und welcher nicht. 

Damit ist unser Überblick über den Amiga 
1200 beendet. Wollte man alle Kleinigkeiten 
erklären, könnte man ein Buch mit 1000 Sei¬ 
ten schreiben, und es wäre noch immer nicht al¬ 
les erklärt. Doch sollten Ihre Kenntnisse jetzt 
reichen, um der Leistung des Amiga 1200 wür¬ 
dige Programme zu schreiben. ■ 

Literatur: 

111 R. Zeitlcr: »Die goldenen Regeln«. AMIOA-Mngazin 2/93 
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(3) A. Koehann & O. Reiff: »Freund & Helfer«, AMIGA-Magazin 
4/93. 

|4) P. Aurich: «Referenz Shell 3.0«. AMIGA-Magazin 2/93-10/93, 
|5| P Aurich: -Arbeiten mit dem Betriebssystem«. AMIGA-Maaazin 
4/93.7/93.8/93. M&T Verlag 
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|X| Comtnodore-Amiga, ROM Kernal Reference Manual & Auto- 
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Der Software- 
Installateur 

Mit seinem neuen Handwerker, dem »Installer«, setzt Commodore einen neu¬ 
en Standard, was die Installierung von Software-Paketen auf Festplatte betrifft. 
Dabei wurde besonderer Wen auf Vielseitigkeit, professionelles Aussehen und 
leichte Erlernbarkeit gelegt. Mittlerweile gibt 's ihn schon auf Fish-Disk als Pu¬ 
blic Domain. Wir zeigen, wie Sie diese Voneile für eigene Projekte nutzen. 



von Alexander Kochann 


S oftware-Pakete werden immer umfang¬ 
reicher: Der Anwender muß neben dem 
Hauptprogramm zahlreiche Dateien für 
Text, Grafik oder Sound. Kataloge. ARexx- 
Scripts, eventuell eine eigene Library und vie¬ 
les mehr kopieren, um ein Programm über¬ 
haupt erst nutzen zu können 
Jeder, der bereits mehrere Software-Pakete 
auf einer Festplatte installiert hat, weiß, daß 
dies manchmal nicht ganz so einfach ist, wie 
Hersteller das Vorhersagen. Fast jedes Paket hat 
sein eigenes Installationsprogramm. Und natür¬ 
lich funktioniert die Installation ausgerechnet 
auf Ihrem Computer nicht, weil Sie eine ande¬ 
re Festplatte, mehr oder weniger Speicher oder 
eine Turbokarte besitzen, mit der die mitgelie¬ 
ferte Software nicht zurechtkommt. 

Commodore stellt deshalb seit neuem ein 
Standard-Installationsprogramm, den »Instal¬ 
ler«, zur Verfügung. Wer OS3.0 bereits instal¬ 
liert hat, kennt ihn, bzw. das, was man davon 
sieht. Er läuft aber - laut Commodore - unter 
allen Versionen des Betriebssystems und auf 
allen Amiga-Computern. 

Um den Installereinsetzen zu können, ist ei¬ 
ne Treiberdatei nötig, die man auch Script 
nennt. Dem erfahrenen Anwender drängt sich 
da schnell der Vergleich mit ARexx auf, und 
vielleicht fragt er sich, wie viele Program¬ 
miersprachen er noch lernen soll, um als Ex¬ 
perte auf dem Gebiet der Amiga-Programmie- 
rung zu gelten? Diesem Aspekt hat Commo¬ 
dore Rechnung getragen und deshalb auf leich¬ 
te Erlernbarkeit geachtet. Der Syntax der In- 
staller-Scripts ist dem der Programmiersprache 
LISP nachempfunden. Für den Benutzer heißt 
das einfache Syntax und viele Klammem, denn 
jeder Befehl wird in runden Klammern einge¬ 
schlossen. Eine Ausnahme bilden Kommen¬ 
tarzeilen, die mit einem Semikolon beginnen. 

Auch der Umgang mit Variablen ist leicht zu 
lernen. Sie sind dynamisch, typenlos und müs¬ 
sen nicht vor Gebrauch deklariert werden. Spe¬ 
zielle Richtlinien bei ihrer Benennung gibt es 
fast keine. Selbstverständlich dürfen Variable 
keine Zahlen oder Befehle sein. An sonstigen 


Zeichen sind nur runde Klammern tabu. Zwi¬ 
schen Groß- und Kleinschreibung wird gene¬ 
rell nicht unterschieden. Zur besseren Unter¬ 
scheidung sind jedoch alle Befehle in den Bei¬ 
spielscripts durchgehend groß geschrieben. 

Noch bevor wir uns an unser erstes eigenes 
Script wagen, sollten wir ein Icon dafür erstel¬ 
len. Der Installer läßt sich zwar auch über die 
Shell starten, das sollte aber die Ausnahme 
bleiben. Das Icon muß vom Typ »Projekt« sein 
und der Installer ist als Standardprogramm ein¬ 
zutragen. Tooltypes, bzw. Merkmale werden 
mehrere unterstützt (Tabelle 1). Interessant sind 
für uns im Moment jedoch nur die ersten bei¬ 
den. Diese sollten immer angegeben werden. 

Software einrichten: 
Alles mit der Maus 

Danach kann man dieses Icon mit einem 
Doppelklick starten. Zuerst wird der Installer 
nachgeladen, danach das angegebene Script. 
Dieses wird auf eventuelle syntaktische Fehler 
überprüft und gestartet oder mit einer Fehler¬ 
meldung abgebrochen. Üblicherweise erkun¬ 


digt sich der Installer jetzt nach Ihrer »Quali¬ 
fikation«. Sie können sich entweder 

- als Einsteiger, 

- geübter Benutzer 

- oder Experte 

zu erkennen geben. 

Für den Einsteiger wird das Script fast alles 
automatisch installieren, dem geübten Einstei¬ 
ger wird ein gewisses Mitspracherecht erlaubt 


und der Experte muß zu jeder geplanten Akti¬ 
on sein Einverständnis geben. Programmieren 
müssen Sie die Unterschiede nur teilweise 
selbst. Im Icon können Sie mit 
MINUSER=EXPERT' 

diese Abfrage umgehen, da nur noch »Exper¬ 
ten« zugelassen werden. Die anderen Qualifi¬ 
kationen heißen auf englisch »novice« und 
»average«. 

Als nächstes kommt auf den Benutzer eine 
weitere Standardabfrage zu. Er wird gefragt, ob 
das Programmpaket wirklich oder scheinbar in¬ 
stalliert werden soll und ob eine Protokollda¬ 
tei gewünscht wird? Da eine scheinbare In¬ 
stallation oft überflüssig ist, setzt man am be¬ 
sten 

PRETEND=FALSE 

um diesen Punkt zu deaktivieren. 

Alle Optionen können Sie auch mit Scripts 
anderer Anwendungen ausprobieren, doch jetzt 
wollen wir uns an unser erstes eigenes Script 
wagen. Es wird nichts weiter tun. als uns zur 
Installation der Software zu begrüßen und uns 
von ihrem ordnungsgemäßen Verlauf unter¬ 
richten. Immer wenn Sie dem Benutzer eine 
Nachricht zukommen lassen wollen, können 


Sie den Befehl »Message« benutzen. Er er¬ 
wartet als einzigen Parameter einen String als 
Text oder Variable. Die Endnachricht können 
Sie mit dem Befehl »Exit« ausgeben, der ge¬ 
nau wie »Message« funktioniert und dann die 
Installation beendet. Mit der Set-Anweisung 
lassen sich Variablen zuweisen. Mit diesen drei 
Befehlen können Sie das erste Script bereits 
verstehen. Wenn Sie es mit mehreren Qualifi- 


Unterstützte »Merkmale« im Icon 

SCRIPT 

Name und Pfad des Scripts 

APPNAME 

Name des zu installierenden Projektes 

LANGUAGE 

Sprache für Installer und Script 

DEFUSER 

voreingestellte »Qualifikation« 

MINUSER 

»Mindest-Qualifikation« des Benutzers 

LOGFILE 

Pfad und Name der Protokolldatei 

LOG 

Protokolldatei an / aus 

PRINT 

Druckeroption an / aus 

PRETEND 

»Scheinbar Installieren« an / aus 


Faszination Programmieren Nr.2 


19 





OS2.1 & 3.0 




#3 3SS 


kationen ausprobieren, werden Sie feststellen, 
daß Einsteiger keine Messages bekommen, da 
bei Ihnen alles automatisch laufen soll und 
ständiges Bestätigen lästig wäre. 

; Demo-Script 1 

(SET Messagel "Welcome to ...") 

(MESSAGE Messagel) 

(EXIT "See you !") 

Natürlich hätten wir uns die Variablenzu¬ 
weisung sparen können. Dennoch ist es sinn¬ 
voll, fast alle Texte als Variablen zu vereinba¬ 
ren. So können Sie auch die Möglichkeit des 
Installers nutzen, verschiedene Sprachen zu un¬ 
terstützen. Dazu müssen Sie nur die gewählte 
Sprache abfragen und die Texte entsprechend 
setzen. Sie befindet sich in der vordefinierten 
Variablen »@language« (siehe Tabelle 2). 
Abgefragt wird das Ganze mit einem If-BIock. 
Dieser hat folgendes Format: 

(IF (Bedingung) (THEN-Block) (ELSE-Block)) 


Im Gegensatz zum bekannten AmigaBASIC 
werden die Schlüsselwörter TUEN oder ELSE 
durch runde Klammern ersetzt. Am besten be¬ 
trachten Sie das zweite Script, das eine ver¬ 
besserte Version des ersten darstellt. 

; Demo-Script 2 

(IF (= Glanguage "deutsch") 

( 

(SET Messagel "Willkommen bei ...") 

(SET Mes8age2 "Und tschüß !") 

) 

( 

(SET Messagel "Welcome to ...") 

(SET Message2 "See you !") 

) 

) 

(MESSAGE Messagel) 

(EXIT Me8sage2) 

Gewöhnungsbedürftig sind die vorange¬ 
stellten Vergleichszeichen wie »=«, »>«, »<=« 
oder »<>« für ungleich. Auch mathematische 
Funktionen werden so behandelt, wie (SET a 
(+ a 1)). was a um eins erhöht. Neben Additi¬ 
on und Subtraktion sind auch Multiplikation 
und Division implementiert, die durch die üb¬ 
lichen Rechenoperatoren angezeigt werden. 
Die Frage nach unterschiedlichen Prioritäten ist 
überflüssig, da in einer Klammer immer nur ei¬ 
ne Rechenart stehen kann. 


Bevor der Installer mit dem Kopieren von 
Dateien beginnen kann, muß er wissen, wo er 
sie findet und wo sie später hingehören. Als 
Beispiel arbeiten wir mit der Diskette »Instal- 
lerDemo«, die wir uns zunächst anlegen. Auf 
ihr legen Sie dann die benötigten Verzeichnis¬ 
se und Dateien an. Auf den Inhalt der Dateien 
kommt es im Moment noch nicht an. Als erstes 
testen wir, ob die Diskette oder ein anderer Da¬ 
tenträger verfügbar ist. Dazu dient ASKDISK. 
Es erwartet keinen direkten Parameter, sondern 
zum Teil optionale Standardparameter. Diese 
werden immer in Klammern angegeben. Mit 
(DEST <name>) wird der Name der Diskette 
angegeben und mit (PROMPT <text>) ein 
Text, der den Benutzer dazu auffordert die Dis¬ 
kette einzulegen, wenn sie noch nicht in einem 
Laufwerk ist. Der Parameter (HELP chelp- 
text>) gibt wie bei vielen Befehlen eine detail¬ 
liertere Erläuterung zum geplanten Vorhaben. 


An folgenden Zeilen kommt der Benutzer nicht 
vorbei, ohne die Diskette einzulegen. 

(ASKDISK (PROMPT "Bitte 'InstallDemo'-Disk 
einlegen !") 

(DEST "InstallDemo") 

(HELP "Ich brauche die Disk !")) 

Als nächstes kümmern wir uns um eine Ziel¬ 
partition oder -Verzeichnis. Dazu dient die 
Funktion ASKDIR. Auch sie unterstützt die Pa¬ 
rameter Prompt und Help. Außerdem kann 
über DEFAULT eine Voreinstellung angege¬ 
ben werden. Am besten verwenden Sie jedoch 
dem Vorschlag des Installers, den Sie in 
»@default-dest« finden. Dieser Variablen soll¬ 
te man dann auch den neuen Wert zuweisen. 
(SET @default-dest i 

(ASKDIR (PROMPT "Bitte Ziel aussuchen:") 

(HELP "Ich brauche ein Ziel !") 

(DEFAULT @default-dest))) 

Jetzt können wir uns schon an das einfache 
Kopieren von Dateien wagen. Dazu gibt es den 
Befehl COPYFILES. Im einfachsten Fall wer¬ 
den Quelle und Ziel benötigt. 

(COPYFILES (SOURCE "InstallDemo:testfile") 
(DEST @default-dest)) 

Wenn Sie jetzt die letzten drei Beispiele zu- 
sammenfügen, haben Sie bereits ein durchaus 
sinnvolles Script, denn mit diesen wenigen Be¬ 
fehlen könnten Sie bereits alle Dateien kopie¬ 
ren, die benötigt werden. Aber der Installer 


stellt noch wesentlich umfangreichere und 
mächtigere Funktionen zur Verfügung, vor al¬ 
lem wenn es darum geht, mit dem Benutzer zu 
kommunizieren. Dazu gibt es neben AskDisk 
und AskDir noch andere Abfragen, die ganz 
ähnlich arbeiten. 

Mit AskFile, AskString und AskNumber fra¬ 
gen Sie einzelne Dateien, Texte und Zahlen ab. 
Alle erfordern Prompt und Help. Da es für den 
Programmierer sehr aufwendig wäre, für jede 
Funktion einen eigenen Helptext zu schreiben, 
sind zu den in Tabelle 3 aufgeführten Befeh¬ 
len und Funktionen bereits Standardtexte defi¬ 
niert. Weitere Fragetypen werden durch Ask- 
Bool, AskChoice und AskOptions abgedeckt. 
Bei den letzteren muß der Parameter CHOI- 
CES verwendet werden. Er enthält nacheinan¬ 
der die Alternativen als einzelne Strings. Dies 
eignet sich hervorragend, um beispielsweise die 
gewünschten Sprachen abzufragen, die ein Pro¬ 
gramm unterstützen kann. Sogar eine Voraus¬ 
wahl kann mit Hilfe von DEFAULT getroffen 
werden. Ihr wird einfach die Nummer des 
Strings übergeben, wobei die Zählung bei eins 
anfängt. 

(IF (ASKB00L (PROMPT "Sprachen install.?") 

(HELP 0ASKBOOL-HELP)) 

(SET sprachen 

(ASKOPTIONS (PROMPT "Sprachen wählen :") 
(HELP "Welche Sprachen...") 
(CHOICES "deutsch" 

"frangais" 

"italiano") 

(DEFAULT 1)))) 

Die sichtbare Abfrage wäre mit diesem Pro¬ 
grammteil erledigt. Was aber enthält die Va¬ 
riable Sprachen jetzt und wie kann man die ein¬ 
zelnen Möglichkeiten wieder abfragen? Eine 
einfache Möglichkeit ist eine If-Abfrage in 
Verbindung mit IN und CopyFiles. 

(IF (IN sprachen 1) 

(COPYFILES (SOURCE "InstallDemo:locale/ 
catalogs/deutsch/test.catalog") 
(DEST "locale:catalogs/deutsch"))) 

Allerdings wird für jede Sprache eine eige¬ 
ne Abfrage mit IN benötigt, die übrigens bit¬ 
weise arbeitet. Kompakter geht dies mit einer 
WHILE-Schleife, auf die wir später noch zu 
sprechen kommen, weil sie noch einiges Wis¬ 
sen erfordert und deshalb erst gegen Ende be¬ 
sprochen wird. 

Gerade wenn man auf allgemeinere Res¬ 
sourcen wie Kataloge oder Libraries zugreifen 
will, ist es wichtig zu testen, ob sie bereits exi¬ 
stieren und welche Versionsnummer sie haben. 
Ist die Verisonsnummer kleiner als die unserer 
Datei, ist ein Kopieren überflüssig, oft sogar 
schädlich für Programme, die bereits auf die¬ 
se Ressource zugreifen. 

(IF (EXISTS("C:copy")) 

((SET Version (GETVERSION("C:copy"))) 

(IF (< Version (GETVERSION( 

"InstallDemo:c/copy"))) 

(COPYFILES (SOURCE "InstallDemo:c/copy”) 
(DEST "C:")) 

(message "Copy wird nicht kopiert !")) 

) 

(COPYFILES (SOURCE "InstallDemo:c/copy") 
(DEST "C:"))) 


Tabelle 2: Vordefinierte Variablen 

@abort-button 

Text für das 'Abort Install'-Gadget 

@app-name 

Name der Anwendung 

@default-dest 

Standard Installations-Pfad 

@each-name 

Dateiname in der foreach-Schleife 

@each-type 

Objekttyp in der foreach-Schleife 

@error-msg 

Standard-Fehlermeldung 

©execute-dir 

Pfad für weitere Shell-Kommandos 

@icon 

Pfadname des Script-Icons 

@ioerr 

Nummer der letzten DOS-Fehlermeldung 

©language 

voreingestellte Sprache 

©pretend 

1: scheinbar installieren, 0: wirklich 

@special-msg 

Fehlermeldung bei fatalen Fehlern 

@user-level 

0: Einsteiger, 1: geübter Benutzer, 2: Experte 

@ <function>-help 

Standardhilfstexte (siehe Tabelle 3) 
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Mit EXISTS können Sie nicht nur erkennen, 
ob eine Datei existiert, sondern auch, ob es sich 
um eine Datei oderein Verzeichnis handelt. Ist 
die Datei nicht vorhanden, wird Null zurück¬ 
gegeben. Wollen Sie testen, ob sich die Datei 
auf einem Datenträger befindet, der gerade 
nicht erreichbar ist, geben Sie (NOREQ) an, 
damit keine Eingabeaufforderung erscheint. 
Wird das »File« gefunden, wird Eins für Da¬ 
tei oder Zwei für Verzeichnis zurückgegeben. 
Mit GETVERSION lesen Sie die Versions¬ 
nummer der Datei: eine 32-Bit-Zahl, deren 
oberes Word die Version und unteres Word die 
Revision enthält. Benötigen Sie beide ge¬ 
trennt, teilen Sie die Version durch 65536. Der 
ganzzahlige Rest ist die Revision. Getversion 
ohne Parameter liefert die Kickstartversion. 


Wie Sie im Script sehen, taucht die Anwei¬ 
sung »Copyfiles« zweimal auf. Werden Be¬ 
fehlsfolgen noch umfangreicher und tauchen 
häufiger auf, ist es sinnvoll, diese in Prozedu¬ 
ren zusammenzufassen. Das ist in diesem Fall 
recht einfach, da noch keine Variablen über¬ 
geben werden können und auch lokale Varia¬ 
blen nicht definierbar sind. Die Deklaration be¬ 
steht also nur aus dem Namen und der Be¬ 
fehlsfolge. 

Noch einfacher ist der Aufruf, der einfach 
durch den Namen der Prozedur in Klammern 
angezeigt wird. Das nächste Script zeigt die 
Deklaration und einen Aufruf. 

(PROCEDURE CopyCopy 

(COPYFILES (SOURCE "In8tallDemo:c/copy") 
(DEST "C:")) ) (CopyCopy) 


Am einfachesten geht das Kopieren aller¬ 
dings mit dem COPYLIB-Befehl. Dieser ko¬ 
piert nicht etwa nur Libraries, sondern beliebi¬ 
ge Dateien, die einen Versionstring enthalten 
müssen, der sich nach dem offiziellen Standard 
von Commodore richtet. Benutzt wird er ganz 
ähnlich wie CopyFiles. Dabei wird jedoch au¬ 
tomatisch die Versionsnummer beachtet. Ein 
anderes Problem, das beim Updaten von Soft¬ 
ware auftritt, ist, daß überflüssige Dateien 
gelöscht werden sollten. Dazu gibt es generell 
zwei Möglichkeiten, die elegantere über DE- 
LETE. dem der Dateiname und Parameter wie 
help und prompt übergeben werden. Über (OP¬ 
TIONAL <option>) können noch zusätzliche 
Sicherungen eingebaut werden. »FORCE« 
löscht auch geschützte Dateien und »ASK- 
USER« erbittet eine Bestätigung vom geübte¬ 
ren Benutzer in einem solchen Fall. 

Die zweite Möglichkeit geht den Weg über 
die Shell-Befehle. Diese können alle als exter¬ 
ne Kommandos verwendet werden. Dazu die¬ 
nen die Kommandos RUN und EXECUTE. 
Der Unterschied besteht nicht etwa darin, daß 
Run im Hintergrund läuft, während Execute so¬ 
lange wartet, bis der Befehl ausgeführt wurde, 
sondern darin, daß mit Run ausführbare Pro¬ 
gramme gestartet werden, während Execute 
ganze Shell-Scripts lädt und abarbeitet. Natür¬ 
lich sollte auch die dritte Art externer Kom¬ 
mandos nicht fehlen: Mit REXX können sogar 
ARexx-Scripts eingebunden werden. Da diesen 
Befehlen jeweils nur die Script-Datei, bzw. das 
Programm mit einer eventuellen Kommando¬ 
zeile übergeben wird, wollen wir sie hier nicht 
näher behandeln. 

Installer mit 
mächtigen Befehlen 

Nicht nur durch diese externen Kommandos 
wird der Installer so vielseitig, daß fast keine 
internen Befehle mehr notwendig wären. Den¬ 
noch stellt der Installer auch Kommandos wie 
Rename, Protect, MakeDir u.ä. zur Verfügung, 
was die Fehlerabfrage enorm erleichtert im Ge¬ 
gensatz zu den externen Befehlen. Auch diese 
Befehle benutzen fast nur Standardparameter, 
so daß sie leicht zu erlernen sind. 

Die großen Vorteile des Installers liegen zu¬ 
sätzlich in drei weiteren Bereichen: der Ände¬ 
rung von Textdateien, wie der Startup-Se- 
quence, sowie der Manipulation von Pikto- 
grammen und den zahlreichen Funktionen zur 
Verwaltung von Strings, was über externe Be¬ 
fehle allein wohl schlecht möglich wäre. 

Beginnen wir mit der Stringverwaltung, da 
diese oft Grundlage für die beiden anderen Ge¬ 
biete ist. Strings werden bekanntlich von An¬ 
führungszeichen umgeben. Dadurch entsteht 
das erste Problem: wie kann ich Anführungs¬ 
zeichen in Strings einfügen. Da das Problem 
nicht neu ist, ist auch die Lösung nicht die neu¬ 
este. Wie in C üblich werden Sonderzeichen 
durch Schrägstriche eingeleitet: 

- V fügt ein Paar Anführungszeichen ein. 

- \n ein LineFeed, 

- \r einen Retumcode, 


Tabelle 3: Funktionen mit Standard-Hilfstexten 

askchoice 

askdir 

askdisk 

askfile 

asknumber 

askoptions 

askstring 

copyfiles 

copylib 

makedir 

startup 



Tabelle 4: Standardparameter 

Standardparameter 

Beschreibung 

ALL 

alle Dateien kopieren 

APPEND <string> 

Text in eine ASCII-Datei einfügen 

ASSIGNS 

Gibt ein Assign als Diskettenlaufwerk an 
(nur zum Debuggen verwenden !) 

CHOICES <string1> <string2> 

Auswahlmenütexte setzen 

COMMAND <string1> <string2>... 

Scriptbefehle für s:user-startup 

CONFIRM <user-level> 

welche Benutzer die Aktion bestätigen sollen 

DEFAULT <value> 

Voreinstellung setzen 

DELOPTS <opion1> <option2> ... 

Löscht die angegebenen Optionen (s. OPTIONAL) 

DEST <file> 

Ausgabedatei, bzw. -Verzeichnis festlegen 

DISK 

Namen von Laufwerke vor Assigns anzeigen 

FILES 

keine Unterverzeichnisse kopieren 

FONTS 

Dateien mit der Endung '.font' werden nicht 
angezeigt, aber kopiert 

HELP <string1> <string2> ... 

auf Wunsch Hilfstext anzeigen 

INCLUDE <file> 

ASCII-Datei in eine andere einfügen 

INFOS 

auch Piktogramme mitkopieren 

NEWNAME <name> 

neuer Datei- oder Diskettennamen 

.NOGAUGE 

kein Füllbalken beim Kopieren 

NOPOSITION 

Position des Piktogramms freigeben 

NOREQ 

keinen Requester darstellen 

OPTIONAL <option1> <option2> ... 

Setzt folgende Optionen: 

"fail" - Abbruch bei Fehler 
“nofair - kein Abbruch bei Fehler 
"oknodelete" - kein Abbruch bei schreibgeschützten 
Dateien 

"force" - Protection-Bits nicht beachten 
"askuser" - Benutzer befragen, wenn Datei 
schreibgeschützt ist 

PATTERN <string> 

Patternmatching beachten 

PROMPT <string1> <string2> ... 

Info-Text zu einem Befehl 

QUIET 

Installer ohne Nachricht beenden 

RANGE <min> <max> 

Reichweite für Zahleneingaben 

SAFE 

auch bei 'Scheinbar Installieren' durchführen 

SETTOOLTYPE <tooltype> <value> 

Merkmal im Piktogramm setzen 

SETDEFAULTTOOL <value> 

Standardprogramm im Piktogramm setzen 

SETSTACK <value> 

Stackgröße im Piktogramm setzen 

SOURCE <file> 

Eingabedatei, bzw. -Verzeichnis 

SWAPCOLORS 

Farben des Piktogramms ändern (für OS1.3-lcons) 
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Tabelle 5: Befehle im Überblick 

Befehl mit Parametern 

Beschreibung 

ABORT <string1> <string2>... 

Befehl führt zum Abbruch des Installers und gibt vorher die 
angegebenen Texte aus. 

COMPLETE <num> 

Titel des Fensters, der angibt, wieviel Prozent bereits installiert 
wurden, wird auf den neuen Wert gesetzt. 

COPYFILES prompt help source dest 

Datei(en) aus dem Quellverzeichnis ins Ziel kopieren. Dabei 
wird keine Versionsnummer beachtet. 

newname choices pattem 

Unterverzeichnisse und Piktogramme können optional 

confirm all fites infos 

mitkopiert werden. 

safe nogauge optional 
delopts fonts 


COPYLIB prompt help source dest 

Kopiert nur Dateien, in die ein Standard-Versionstring impleme- 

newname choices pattem 

tiert ist. Andere Dateien werden nicht kopiert. 

confirm all files infos 

Ist die Datei bereits in einer höheren Version vorhanden, wird 

safe nogauge optional 

sie nicht durch die ältere Version überschrieben. 

delopts 


DEBUG <parameters>... 

Angegebene Parameter werden in der Shell ausgegeben. Der 
Befehl sollte nur zum Debuggen verwendet werden. 

DELETE <file> help prompt confirm 

Die angegebene Datei wird normalerweise gelöscht. Optional 

safe optional delopts 

kann der Benutzer gefragt werden, ob er das wirklich wünscht. 

EXECUTE <script> help prompt 

Das angegebene Shell-Script wird ausgeführt. 

confirm safe 

EXIT <string1> <string2>... 

Installer endet still oder mit dem angegebenen Text. 

quiet 

FOREACH <dir> <pattern> 

Die in <statements> definierten Befehle werden auf alle 

<statements> 

passenden Dateien des Verzeichnisses angewandt. 

IF <expression> <then-statements> 

Ist der Ausdruck <expression> wahr, so werden die 

<else-statements> 

in <then-statements> definierten Befehle ausgeführt, 
im anderen Fall die <else-statements>. 

MAKEASSIGN <assign> [<path>] safe 

Wie der Shell-Befehl Assign. Beim <assign> wird jedoch kein 
Doppelpunkt angehängt. Fehlt ein Pfad, wird das Assign entfernt. 

MAKEDIR <name> prompt help infos 

Wie der Shell-Befehl MakeDir. 

confirm safe 


MESSAGE <string1> <string2>... 
help 

ONERROR <statements> 

Ausgabe einer Nachricht für den geübteren Benutzer 

<statements> gibt Befehle im Fehlerfall an. 

PROCEDURE <name> <statements> 

Faßt Befehle in <statements> als Prozedur »<name>« zusammen. 

PROTECT <file> [<dosmask>] 

Setzt die Protection-Bits einer Datei, oder liest 

[<decimal mask] safe 

sie aus, wenn keine Maske angegeben ist. 

RENAME <oldname> <newname> help 

Wie der Shell-Befehl Rename. 

prompt confirm safe disk 

disk bedeutet, daß eine Diskette umbenannt werden soll. 

REXX <script> help prompt confirm 

Das angegebene ARexx-Script wird ausgeführt. 

RUN <program> help prompt confirm 

Das angegebene Programm oder 

safe 

Shell-Kommando wird ausgeführt. 

SET <var> <expression> 

Setzt die Variable <var> auf den Rückgabewert des Ausdrucks 

<var2> <expression2>... 

<expression>. Mehrfache Zuweisungen sind möglich. 

STARTUP <appname> command prompt 

Die in »command« definierten Textzeilen werden in die Datei 

help 

sistartup-sequence, bzw. s:user-startup eingefügt. 

<appname> ist dabei der Name der Anwendung. 

TEXTFILE prompt help dest append 

Eine ASCII-Datei wird je nach Parametern erzeugt. 

include confirm safe 

TOOLTYPE prompt help dest confirm 

Die Daten eines Piktogramms werden geändert. 

noposition safe setstack 
settooltype setdefaulttool 
swapcolors 

TRAP <flags> <statements> 

Bei einem bestimmten Ereignis sollen die angegebenen 

Befehle ausgeführt werden. Die Ereignisse sind: 

1: ABORT, 2: NoMem, 3: Error, 4: DosError, 5: BadArgs 

UNTIL <expression> <statements> 

Die angegebenen Befehle werden ausgeführt, solange der 
Ausdruck <expression> falsch ist. 

USER <level> 

Setzt die Benutzerqualifikation neu. Sollte nur zum Debuggen 
von Scripts benutzt werden und nicht in fertigen Scripts 

WELCOME <string1> <string2>... 

Ersetzt die Standard-Begrüßung 

WHILE <expression> <statements> 

Solange der angegebene Ausdruck wahr ist, werden die 

Befehle ausgeführt. 

WORKING <string1> <string2>... 

Zeigt dem Benutzer an, daß der Installer arbeitet. 


- \t einen Tabulator 

- und \() schließlich ein Nullbyte. 

Um einen Schrägstrich auszugeben, muß 
man dann allerdings gleich zwei tippen, damit 
Verwechslungen vermieden werden. 

Die einfachste Funktion im Bereich der Zei¬ 
chenketten ist das Aneinanderketten zweier 
oder mehrerer Strings. Dies übernimmt die 
Funktion CAT. Sie hat ihren Namen nicht et¬ 
wa von einer Katze, sondern von dem engli¬ 
schen »concatenation« - Verkettung. 

Zauberei mit Ziffern 
und Zeichen 

Damit die C-Programmierer auch nicht auf 
ihre printf-Routine verzichten müssen, wurde 
auch diese von den Programmierern des In¬ 
stal lers umgesetzt. Diese Funktion hat keinen 
eigentlichen Namen, sondern enthält in Klam¬ 
mern nur den Formatstring, gefolgt von den Ar¬ 
gumenten. So ist es kein Problem mehr, varia¬ 
ble Zahlen und Texte in einer Zeichenkette un¬ 
terzubringen. Zu beachten ist nur. daß alle Zah¬ 
len 32-Bit breit sind. Das Beispiel zeigt außer¬ 
dem, wie man dem Benutzer im Fensterrahmen 
Auskunft über den Stand der Dinge geben 
kann. 

(SET Prozente 66) 

(COMPLETE Prozente) 

(MESSAGE ("Bereits %ld Prozent 

installiert !" Prozente)) 

Benötigt man die Länge eines Strings, kann 
man sich diese mit STRLEN besorgen. Auch 
das Zerlegen von Zeichenketten ist kein großes 
Problem mit dem Installer. Am einfachsten 
geht es mit SUBSTR. Neben dem String wird 
die Position des ersten Zeichens angegeben, 
das übernommen werden soll. Die Länge des 
Teilstrings ist optional. Wird sie weggelassen, 
wird der String bis zum Ende kopiert. 

Da der Installer hauptsächlich mit Dateien 
und deren Namen arbeitet, war es dringend not¬ 
wendig, auch dafür spezielle Stringfunktionen 
zu implementieren. (F1LEONL.Y <path» gibt 
zum Beispiel nur den Dateinamen ohne den 
Pfad zurück, während PATHONLY eben die¬ 
sen ohne Dateinamen liefert. 

Und nicht nur das Zerlegen von Pfaden ist 
möglich. Mit dem Aufruf(TACKON <path> 
<file>) können Dateinamen wieder korrekt zu¬ 
sammengesetzt werden, ohne daß man sich um 
Doppelpunkte oder Schrägstriche kümmern 
müßte. Und auch eine weitere Funktion be¬ 
schäftigt sich mit Pfaden, nämlich EXPAND- 
PATH. Jegliche Assigns werden darin aufge¬ 
löst, so daß nur der Pfad über physikalische 
Geräte, bzw. Schubladen übrigbleibt. Zum 
Abschluß dieser Funktionsgruppe noch ein 
kleines Bonbon zum Patternmatching. das seit 
OS2.0 auch in derdos.library erheblich an Be¬ 
deutung gewonnen hat. 

(SET file "x.info") 

(IF (PATMATCH "#?.info" file) 

(MESSAGE "Ist Piktogramm !”) 

(MESSAGE "Ist kein Piktogramm !”)) 

Auf diese Art ist ganz einfach feststellbar, ob 
eine Datei eine bestimmte Endung hat, wie Ka¬ 


taloge oder Piktogramme. Gerade letztere sind 
für die Installation von Software oft zwingend 
notwendig und müssen ziemlich häufig an die 
Bedürfnisse des Benutzers angepaßt werden. 


Dafür existiert ein einziger aber sehr wir¬ 
kungsvoller und mächtiger Befehl: TOOLTY¬ 
PE. Ihm können neben Prompt, Help und Dest 
auch noch die zu ändernden Werte wie Stan- 
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Tabelle 6: Funktionen im Überblick 

Funktion mit Parametern 

Beschreibung 

= <expression1> <expression2> 

Vergleicht zwei Ausdrücke und gibt TRUE oder FALSE zurück. 

<> <expression1> <expression2> 

»ungleich 

> <expression1> <expression2> 

»größer als«; 

>= <expression1> <expression2> 

»größer als oder gleich« 

< <expression1> <expression2> 

»kleiner als« 

<= <expression1> <expression2> 

»kleiner als oder gleich« 

+ <expression1> <expression2> 

Gibt die Summe beider Ausdrücke zurück. 

- <expression1> <expression2> 

Gibt die Differenz beider Ausdrücke zurück. 

* <expression1> <expression2> 

Gibt das Produkt beider Ausdrücke zurück. 

/ <expression1> <expression2> 

Gibt den Quotienten beider Ausdrücke zurück. 

AND <expression1> <expression2> 

Logisches AND 

OR <expression1> <expression2> 

Logisches OR 

XOR <expression1> <expression2> 

Logisches XOR 

NOT <expression1> <expression2> 

Logisches NOT 

BITAND <expression1> <expression2> 

Binäres AND 

BITOR <expression1> <expression2> 

Binäres OR 

BITXOR <expression1> <expression2> 

Binäres XOR 

BITNOT <expression1> <expression2> 

Binäres NOT 

SHIFTLEFT <va!ue> <bits> 

Schiebt <value> um <bits> Bits nach links. 

SHIFTRIGHT <value> <bits> 

Schiebt <value> um <bits> Bits nach rechts. 

IN <expression> <bitnumber1>... 

Logisches AND aus <expression> und den angegebenen Bits. 

<format> <arg1> <arg2>... 

Formatierung wie printf, bzw. RawDoFmt(). 

ASKDIR prompt help default newpath 

Stellt eine Auswahlbox dar, aus der nur Verzeichnisse, 

disk 

Disketten oder Assigns gewählt werden können. 

ASKFILE prompt help default newpath 
disk 

ASKSTRING prompt help default 

Stellt eine Datei-Auswahlbox dar. 

Ein Stringgadget wird dargestellt und abgefragt. 

ASKNUMBER prompt help ränge default 

Wie ASKSTRING, es sind jedoch nur Zahlen erlaubt. 

ASKCHOICE prompt help choices 

Stellt die in CHOICES angegebenen Auswahlmöglichkeiten dar, 

default 

aus denen der Benutzer genau eine wählen kann. 

ASKOPTIONS prompt help choices 

Stellt die in CHOICES angegebenen Auswahlmöglichkeiten dar, 

default 

aus denen der Benutzer beliebig viele auswählen kann. 

ASKBOOL prompt help default choices 

Ja-Nein-Abfrage (0: Nein, 1: Ja) 

ASKDISK prompt help dest newname 

Test, ob ein Speichermedium verfügbar ist. Falls nicht, wird 

assigns 

der Benutzer aufgefordert, es verfügbar zu machen. 

CAT <string1> <string2>... 

Verknüpft mehrere Strings miteinander. 

DATABASE <feature> 

Gibt Daten über den Amiga zurück. 

"vblank" - z.B. “50'' oder "60“ 

"cpu" - z.B. “68000" oder "68040" 

"total-mem" - Anzahl aller freien Bytes als String 
"graphics-mem“ - freie Bytes im CHIP-Memory als String 
"chiprev“ - z.B. “AGNUS", “ECS" oder "AA" 

EXISTS <filename> noreq 

Testet den Type eines Files. 

0: nicht vorhanden 1: Datei 2: Verzeichnis 

EXPANDPATH <path> 

Entfernt Assigns aus dem Pfadnamen und ersetzt sie durch den 
physikalischen Pfad (Diskettennamen und Unterverzeichnisse). 

EARLIER <file1> <file2> 

TRUE, wenn <file1> älter als <file2> ist. 

FILEONLY <path> 

Schneidet von einem Dateinamen die Pfadangaben ab, so daß 
nur noch der eigentliche Name übrigbleibt. 

GETASSIGN <name> <options> 

Übergibt den Pfadnamen eines Assigns. 

Options: V: Volumes, ’a': Logische Geräte, 'd': Devices 

GETDEVICE <path> 

Gibt den übergeordneten Pfad eines Assigns an. 

GETDISKSPACE <path> 

Übergibt die Anzahl der freien Bytes auf diesem Datenträger 
oder -1, wenn der Pfad ungültig war. 

GETENV <name> 

Liest den Wert einer Environment-Variablen 

GETSIZE <file> 

Liefert die Größe einer Datei in Bytes. 

GETSUM <file> 

Berechnet die Checksumme einer Datei, wie sie vom Programm 
»InstSum« berechnet wird. 

GETVERSION <file> resident 

Durchsucht Datei oder residentes Modul nach Versionsnummer. 
Diese wird mit der Revision als 32-Bit-lnteger zurückgegeben. 

Ohne Parameter wird die Kickstartversion zurückgegeben. 

PATHONLY <path> 

Schneidet von einem Dateinamen den eigentlichen Dateinamen 
ab, so daß nur noch der Pfad übrigbleibt. 

PATMATCH <pattern> <string> 

TRUE, wenn <string> in das angegebene Muster paßt. 

SELECT <n> <item1> <item2>... 

Gibt eitern n> oder den letzten Eintrag zurück, wenn weniger als 
n Einträge definiert wurden. 

STRLEN <string> 

Länge des Strings ohne Nullbyte 

SUBSTR <string> <start> [<count>] 

Liest ab der Position <start> alle Bytes aus einem String aus. 

Wird <count> angegeben, so werden nur soviele Bytes gelesen. 

TRANSCRIPT <string1> <string2>... 

Schreibt die angegebenen Texte ins Logfile. 

TACKON <path> <file> 

Der Dateiname <file> wird an einen vorhandenen Pfad angefügt. 


dardprogramm, Merkmale oder Stackgröße 
übergeben werden. Dadurch wird nur einmal 
auf eine Piktogramm-Datei zugegriffen und al¬ 
le Werte mit einem Schlag verändert. Genau 
dies zeigt unser nächstes Script. 

(TOOLTYPE (DEST "ram:Install^Demo") 
(SETTOOLTYPE "X" "20") 

(SETTOOLTYPE "Y" "10") 

(SETDEFAULTTOOL "DefaultTool") 
(SETSTACK 10000) 

(NOPOSITION)) 

Nicht nur Piktogramme, auch die Startup- 
Dateien müssen immer wieder den Wünschen 
der Benutzer angepaßt werden, um beispiels¬ 
weise Assigns korrekt zu setzen, Zugriffspfade 
zu erweitern oder Programmodule zu laden. 
Mit STARTUP wird der User-Startup um 
Textzeilen erweitert. Existiert diese Datei 
nicht, wird die Startup-Sequence geändert. Ne¬ 
ben den bekannten Parametern Prompt und 
Help wird StartUp noch der Name des Projekts 
als String übergeben. Die Zeilen, die eingefügt 
werden sollen, stehen hinter dem Schlüsselwort 
COMMAND. 

(STARTUP " Assigns für 

(PROMPT "Modifiziere StartUp !") 
(HELP "Blabla") 

(COMMAND "Assign X: Work:x")) 

Ganz ähnlich können Sie auch beliebige an¬ 
dere Textdateien anlegen. Der Befehl dazu 
heißt sinnigerweise TEXTFILE und verfügt 
über ähnliche Parameter wie Startup. Mit (IN- 
CLUDE <file>) kann eine andere Textdatei in 
die bestehende eingefügt werden. (APPEND 
<string>) fügt beliebige Zeichenketten hinzu. 
Dieser Befehl ist dazu gedacht. Batch-Dateien 
oder andere Kommandofolgen wie ARexx- 
Scripts anzulegen, deren Inhalt teilweise va¬ 
riabel ist, weil er sich z.B. nach dem Installa¬ 
tionspfad richtet. 

Die eigentlichen Befehle und Funktionen, 
abgesehen von binären und logischen Opera¬ 
toren, kennen Sie nun. Gegen Ende möchten 
wir Sie noch mit zwei nützlichen Strukturie¬ 
rungen vertraut machen: die WHILE- und die 
REPEAT-UNTIL-Schleifen. Von der Bedeu¬ 
tung dürften sie allen Programmierern bekannt 
sein. Ihr einziger Unterschied besteht darin, daß 
bei einer While-Schleife die Bedingung zu Be¬ 
ginn abgefragt wird. Dies geschieht bei der 
gleichen Konstruktion mit Repeat erst am En¬ 
de einer jeden Schleife, so daß sie mindestens 
einmal durchlaufen wird. 

Vom Syntax sind beide nicht besonders 
schwierig, wie wir das von allen anderen In- 
staller-Befehlen ja schon kennen. Ähnlich wie 
bei der If-Abfrage kommt zuerst das Schlüs¬ 
selwort While, dann in Klammern die Bedin¬ 
gung und in einem weiteren Klammernpaar die 
auszuführenden Befehle. Die Repeat-Until- 
Schleife ist vom Syntax her identisch. Das 
Schlüsselwort heißt jedoch nicht Repeat, son¬ 
dern Until. Das nächste Script zählt die Varia¬ 
ble i von 0 bis 10 hoch und dann wieder ab¬ 
wärts bis 0. 

(WHILE (< i 10) 

(SET i (+ i 1))) 

(UNTIL (= i 0) 

(SET i (- i 1))) 
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In solchen Schleifen ist auch die SELECT- 
Anweisung von großem Vorteil. Gerade im Zu¬ 
sammenhang mit der Auswertung von Abfra¬ 
gen über AskOptions oder AskChoice. Gibt 
man folgende fünf optionalen ARexx-Scripte 
als Wahl einer Abfrage an, kann man sie über 
Select sehr gut wieder abfragen. Select benötigt 
eine Variable, nach deren Wert die Auswahl 
getroffen werden soll. Diese ist in unserem Bei¬ 
spiel die Laufvariable n. Ihr folgen die Aus¬ 
wahlmöglichkeiten für den Fall, daß die Va¬ 
riable 0, 1. 2, 3 oder 4 ist. Die letzte Angabe 
ist für den Fall gedacht, daß keine der anderen 
Möglichkeiten zutrifft. Neu ist außerdem die 
Verwendung eines Patterns bei CopyFiles. Es 
besteht aus (%<dospattern>l<dospattern>l...). 
(SET rexxs 
(ASKOPTIONS 

(PROMPT "ARexx-Scripte wählen") 

(HELP "blabla") 

(CHOICES "Start.rexx" 

"End.rexx” 

"Pause.rexx" 

"Break.rexx" 

"Repeat.rexx"))) 

(SET filepat "(V) 

(SET n 0) 

(WHILE 
(SET file 

(SELECT n "Start.rexx" 


"End.rexx" 

"Pause.rexx" 

"Break.rexx" 

"Repeat.rexx" 

"")) 

(IF (IN rexxs n) 

(SET filepat (CAT filepat "I" file))) 

(SET n (+ n 1))) 

(SET filepat (CAT filepat ")")) 

(COPYFILES (SOURCE "InstallDemo:Rexx") 

(DEST (TACKON Odefault-dest "Rexx")) 
(PATTERN filepat)) 

Der Installer kennt noch eine dritte An von 
Schleifen. Mit FOREACH können Sie für je¬ 
den Eintrag eines Verzeichnisses bestimmte 
Befehle ausführen lassen. Dies ist vor allem 
durch die direkte Unterstützung eines Pattern 
sehr komfortabel. Angenommen Ihr Haupt¬ 
programm benötigt für unterschiedliche Be- 
triebssystemversionen verschiedene Dateien, 
wie Libraries. Dann können Sie die Dateien im 
gleichen Verzeichnis ablegen. aber je nach En¬ 
dung kopieren. Die internen Variablen @each- 
name und @each-type enthalten dabei den Da¬ 
teinamen, bzw. den Objekttypen der Datei, wie 
er auch im FilelnfoBlock bei Fib_DirEntryTy- 
pe definiert ist. Unser Beispiel kopiert alle Da¬ 
teien mit der Endung »_l.3« in das angegebe¬ 
ne Verzeichnis. 

(SET mypattern "#?_1.3”) 


(FOREACH "InstallDemo:" mypattern 
(COPYFILES (SOURCE ( 

TACKON "InstallDemo:" @each-name)) 
(DEST "ram:"))) 

Nachdem Sie jetzt fast alle Befehle. Funk¬ 
tionen und deren Parameter kennen, müßten 
Sie eigentlich in der Lage sein, eigene Scripts 
für den Installer zu schreiben. Dazu noch ein 
paar nützliche Tips: Probieren Sie ein Script 
mit jeder Benutzer-Qualifikation aus. damit es 
nicht zu unliebsamen Effekten bei einem der 
drei Grade kommt. Gewöhnen Sie sich außer¬ 
dem an, die Klammern sinnvoll und über¬ 
sichtlich zu setzen. C-Programmierern sollte 
das etwas leichter fallen, als ihren Assembler- 
Kollegen. 

Sollte dennoch ein Fehler einmal nicht auf¬ 
findbar sein, was bei den spartanischen Feh¬ 
lermeldungen des Installers nicht weiter ver¬ 
wunderlich ist, benutzen Sie den Installer aus¬ 
nahmsweise von der Shell aus. Dort wird die 
fehlerhafte Programmzeile ausgegeben, was al¬ 
lerdings nur manchmal hilft, da die beliebten 
Klammern meistens wesentlich später zu Feh¬ 
lermeldungen führen. Lassen Sie sich davon 
aber nicht abschrecken, sondern machen Sie 
von der Möglichkeit Commodores Gebrauch, 
damit wir in Zukunft wirklich nur noch einen 
Software-Installateur benötigen und keine un¬ 
terqualifizierten Schwarzarbeiter. ■ 
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Im Griff: Kickstart-Umschaltplatinen 

Gefahrlos umschalten 


j KickReboot. asia geschrieben von Patrick Ohly 
; nach ColdReboot.asm von Comnodore 

ABSEXECBASE EQD 4 ; Zeiger auf ExecBase 

MAGIC_ROMEND EQU $01000000 ; Ende Kickstart-ROM 

MAGIC.SIZEOFFSET EQÜ -$14 ; Offset Ende des ROMs zur GröSe 
_LVOSupervisor EQO -30 ; Offset der Supervisor-Funktion 
LVODisable EQO -120 j Offset der Disable-Funktion 

CHKSOM EQO $52 ; Offset für Library-Checksum 

PRA EQO SbfeOOl ;Register für linkr Maustaste 

LMB EQO 6 ; Bit für linke Maustaste 

section text.code 
XDEF ^KickReboot 
KickReboot: 

move.l ABSEXECBASE,a$ 

jsr _LVODisable(a6) ; schalte Interrupts ab 
addq.v #l,CHKS0M(a6) ; erzwingt Neuaufbau der ExecBase 
lea.l Loop(pc),a5 ; Adresse des auszuführenden Codes 
jsr _lVOSupervisor(a6) ; Code anspringen 

i Funktion wird nicht beendet 


ds.l 0 

Loop: move.b PRA.dO ; Auf Mausklick warten ... 

btst #LMB,d0 
bne Loop 

lea.l MAGIC_ROMEND,aO ; Adresse der Initialisierungs- 
; Routine in ROM ausrechnen ... 
sub.l MAGIC JIZEOFFSET(aO),aO 

nove.l 4(a0),a0 
subq.l 12,aO 


reset 


jnp (a 0 ) 


Reset 


Routine anspringen 

© 1993 M&T 


»KickReboot.asm«: Die Assembler¬ 
routine führt einen Reset aus (alle 
Programme auch auf unserer PD- 
Diskette zu finden; s. S. 114) 


Endlich hat man eines der Update- 
Kits fürs neue Betriebssystem 2.0 er¬ 
rungen, schon tauchen die ersten 
Zweifel auf, ob der Schritt richtig 
war: Viele Programme bzw. Spiele 
verweigern ihren Dienst. 

von Patrick Ohly 


U m diesem Problem entgegenzuwirken, 
greift man oftmals auf Kickstart- 
Umschaltplatinen zurück. Im AMI- 
GA-Maga/.in 3/92 finden Sie im übrigen eine 
Schaltung, die sich einfach nachbauen läßt. 
Ein Problem gibt's aber immer noch: 

Nur bei ausgeschaltetem Computer ist die 
Umschaltung gefahrlos möglich. Ansonsten 
provoziert man einen schweren Systemabsturz 
mit unvorhersehbaren Folgen, da bei laufen¬ 
dem Computer ständig auf ROM-Routinen zu¬ 
gegriffen wird und diese nach dem Umschal¬ 
ten an anderen Stellen liegen. Das bedeutet al¬ 
so, Computer ausschalten, zehn Sekunden 
warten, wieder einschalten usw. 

Abhilfe schafft das Programm »Kick- 
Switch«. Es läßt sich vom CLl/Shell oder der 


Workbench starten. »KickSwitch« erwartet 
keine Argumente. Die auftauchende Sicher¬ 
heitsabfrage ist entsprechend zu beantworten. 
Das Schließsymbol des Fensters veranlaßt 
KickSwitch zum Abbruch. Die Anwahl des 
OK-Schalters hingegen hält den Amiga an und 
der Schalter der Kickstart-Umschaltplatine ist 
nun gefahrlos umzulegen. 

Der Amiga wird neu gestartet, nachdem man 
die linke Maustaste gedrückt hat. Dabei gehen 
allerdings alle Daten im Hauptspeicher verlo¬ 


ren. Auch resetfeste Programme werden durch 
diesen Vorgang entfernt. 

Das Programm läßt sich mit dem PD-C- 
Compiler Dice (Fish-Disk 491) übersetzen. Die 
drei erforderlichen Listings, »Kickswitch.h«, 
»Kickswitch.c« und »ColdReboot.asm« finden 
Sie auch auf unserer Diskette zum Heft (Seite 
114). rz 

Quell- und Litcralurhinweise 

111 Commodore Amiga, AMIGA ROM Kemel Reference Manual 
Hardware. Tlurd Edition. Reading 1991 
|2] ColdReboot.asm (Fish-Disk 344) 


/* KickSwitch VI.1 

APTR IAddress=IM8g->IAddress; 

* Autor: Patrick Ohly 

ReplyMsg((struct Message *)IMsg); 

* Zu Kompilieren mit dem DICE-Compiler 

switch(Class) { 

* Compileraufruf: 

case CLOSEWINDOW: 

* dcc KickSwitch.c KickReboot.asm -o KickSwitch 

CloseAll(); 

*/ 

break; 

ttinclude <stdlib.h> 

case GADGETUP: 

if (IAddres8==SiOKGadget) { 

#include <exec/types.h> 

/* Schreibe neuen Text und löse Reset aus */ 

#include <intuition/intuition.h> 

ClearScreen(DialogWindow->RPort); 

#include <dos/dos.h> 

PrintIText(DialogWindow->RPort, &InfoTextl,0,0); 

#include <clib/execj?rotos.h> 

KickReboot(); 

) eise CloseAll(); 

#include <clib/intuition_protos.h> 

break; 

#include <clib/graphicsj?rotos.h> 

default: 

#include "KickSwitch.h" 

break; 

) 

) 

) 

VOID KickReboot(VOID); 

struct Window *DialogWindow; 

return(RETURN FAIL); 

) 

/* CloseAll schließt das Fenster und beendet Programm */ 

VOID CloseAll(VOID) { 

/* keine spezielle Behandlung eines WB-Starts */ 

CloseWindow(DialogWindow); 

VOID .waitwbmsg(VOID); 

exit(RETURN WARN); 

VOID nevercalled(VOID) { 

} 

waitwbmsgO; 

) 

int main(VOID) ( 

if(DialogWindow=OpenWindow(&DialogNewWindow)) { 

int wbmain(VOID) { 

struct IntuiMessage *IMsg; 

return(_main()); 

WaitPort(DialogWindow->UserPort); 

) © 1993 M&T 

while( IMsg= (struct IntuiMessage *) 

GetMsg(DialogWindow->üserPort)) { 

»Kickswitch.c«: Das Programm öffnet benötigte Res- 

ULONG Clas8=IMsg->Class; 

sourcen. U.a. importiert es die Datei »Kickswitch.h«. 
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/* Windowdefinition for KickSwitch.c */ 

/* Text für Cancel-Gadget: */ 

SQuestionText, 

struct TextAttr TOPAZ60 = { 

struct IntuiText CANCELText = { 

OL, NULL, NULL, NULL 

(STRPTR)"topaz.font", 

1,0,JAM2, 13,3, 

I; 

TOPAZ SIXTY,0,0 

STOPAZ60, (UBYTE *)"CANCEL", 

/* Hinweis-Text: */ 

}; 

NULL 

struct IntuiText InfoText2 = ( 

/* 3D-Effekt */ 

); 

1,0,JAM2, 1,27, 

/* daher zwei Teile für Rand */ 

SHORT GadgetVectorsLeftüpper[] = { 

/* Cancel-Gadget: */ 

STOPAZ60, (UBYTE *) 

"Drücken Sie die linke Maustaste!", 

82, 0, 0, 0, 0, 15 

struct Gadget CANCELGadget = { 

NULL 

}; 

NULL, 220,29, 83,14, 

}; 

SHORT GadgetVectorsRightLower[] = { 

GADGHIMAGE, RELVERIFY, BOOLGADGET, 

struct IntuiText InfoTextl = ( 

82, 1, 82, 15, 1, 15 

(APTR)SGadgetBorderNonnall, 

1,0,JAM2, 18,10, 

); 

(APTR)SGadgetBorderSelectedl, 

STOPAZ60, (UBYTE *) 

/* Nicht selektierter Rand: */ 

SCANCELText, 

"Wählen Sie ein Kickstart und", 

struct Border GadgetBorderNormal2 = { 

OL, NULL, NULL, NULL 

SInfoText2 

-1,-1, 1,0,JAM1, 

I; 

I; 

3, GadgetVectorsRightLower, 

/* Text für OK-Gadget: */ 

/* Kommunikationsfenster: */ 

NULL 

struct IntuiText OKText = { 

struct NewWindow DialogNewWindow = ( 

1; 

1,0,JAM2, 29,3, 

0,0, 342,65, 0,1, 

struct Border GadgetBorderNormall = { 

STOPAZ60, (UBYTE *)"OK", 

GADGETÜP+CLOSEWINDOW, 

-1,-1, 2,0,JAM1, 

NULL 

WINDOWSIZING+WINDOWDRAG+WINDOWDEPTH+ 

3, GadgetVectorsLeftüpper, 

); 

WINDOWCLOSE+GIMMEZEROZERO+ACTIVATE+ 

SGadgetBorderNormal2 

/* Sicherheitsabfrage: */ 

NOCAREREFRESH, 

); 

struct IntuiText QuestionText = ( 

SOKGadget, NULL, 

/* Selektierter Rand: */ 

1,0,JAM2, -2,-19, 

(UBYTE *) 

struct Border GadgetBorderSelected2 = { 

STOPAZ60, (UBYTE *) 

"KickSwitch von VI.1 Patrick Ohly", 

-1,-1, 2,0,JAM1, 

"Wollen Sie wirklich rebooten?", 

NULL, NULL, 

3, GadgetVectorsRightLower, 

SOKText 

5,5, -1,-1, 

NULL 

}; 

/* OK-Gadget: */ 

WBENCHSCREEN 

}; 

}; © 1993 MST 

struct Border GadgetBorderSelectedl = { 

struct Gadget OKGadget = { 

»Kickswitch.h«: Hier werden wich- 

- 1, ~1 / 1,0,JAM1, 

3, GadgetVectorsLeftüpper, 

SCANCELGadget, 18,29, 81,14, 

GADGHIMAGE, RELVERIFY, BOOLGADGET, 

tige Definitionen fürs Programm 

SGadgetBorderSelected2 

(APTR)SGadgetBorderNonnall, 

vereinbart. Sie wird im Hauptpro- 

I; 

(APTR)SGadgetBorderSelectedl, 

gramm eingebunden. 
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BigRam CD 

Aufrüstung für CDTV auf 
2 MB Chip & 2 MB Fastram 



BigRam CD 8 
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Reparatur-Service: Reparaturen aller 
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Programmierfehler vermeiden 


Darauf sollten Sie achten 

Bei der Programmierung des Amiga können sich sehr leicht Fehler einschlei¬ 
chen, die häufig lange unbemerkt bleiben, um dann plötzlich (z..B. bei neuen 
Kickstartversionen) um so schwerwiegender in Erscheinung zu treten. Wir nen¬ 
nen Urnen einige Fehlerquellen, die Sie kennen (und vermeiden) sollten. 



von Heinzjörg Rabe 


D er Amiga bietet eine offene Systemar¬ 
chitektur und kann in vielfältiger Wei¬ 
se erweitert oder modifiziert werden. 
Machen Sie keine Annahmen darüber, welche 
Speicherbereiche mit RAM bestückt sind. Im 
Zweifelsfalle kann die Funktion »TypeOf- 
Mem()« der Exec-Library verwendet werden, 
um zu erfahren, ob an einer gegebenen Adres¬ 
se RAM existiert. 

Jeder Zugriff auf unbelegte Speicherberei¬ 
che, also Adreßbereiche, die (momentan) we¬ 
der mit ROM. noch RAM, noch irgendwelchen 
I/O-Chips (CIAs, Customchips, Echtzeituhr, 
etc.) belegt sind, kann folgenschwere Auswir¬ 
kungen haben: Im günstigsten Falle passiert gar 
nichts, ein Schreibzugriff verändert kein einzi¬ 
ges Byte, ein Lesezugriff liefert irgendwelche 
Zufallswerte. 

Der Griff ins 
(Speicher-) Leere 

Sehr viel häufiger bewirkt ein Schreibzugriff 
auf diese Bereiche jedoch, daß ein Byte an ei¬ 
ner anderen Adresse ungewollt verändert wird. 
Von manchen »legalen« Adreßbereichen exi¬ 
stieren mehrere sogenannte »Geisterbilder«, 
d.h. ein und dieselbe Speicherstelle läßt sich 
unter mehreren anderen Adressen ansprechen. 
Man kann sich allerdings nicht darauf verlas¬ 
sen. daß diese Geisterbilder bei allen Amigas 
und mit unterschiedlichen RAM-Ausbaustufen 
an derselben Adresse liegen (obwohl das leider 
einige kommerzielle (Spiel)-Programme zur 
Verwirrung möglicher Cracker gerne tun). 

Alle Register der Customchips ($00DFF(X)0- 
SOODFFIFF) können an der gleichen Adresse 
jeweils entweder nur gelesen (Read-Only) 
oder nur geschrieben (Write-Only) werden. Die 
meisten Register können nur beschrieben wer¬ 
den. Einige wenige können geschrieben und 
gelesen werden, allerdings gibt es dann zwei 
verschiedene Adressen: eine zum Lesen und ei¬ 
ne zum Beschreiben des Registers. Genauer¬ 
gesagt besitzen die Customchips keine 
Read/Write-Signalleitung, um die Datenrich¬ 
tung festzulegen. Die Datenrichtung wird ein¬ 
zig und allein durch die Adresse selbst be¬ 


stimmt. Daraus erklärt sich dann 
auch folgendes Verhalten: 

Ein Lesezugriff auf ein Nur- 
Schreibregister (Write-Only) wirkt 
wie das Schreiben eines Zufallswer¬ 
tes in dieses Register! Wenn Sie al¬ 
so den Weil in einem Customchip- 
Register verändern und sich vorher 
sicherheitshalber den alten Wert in 
dem Register merken wollen, denken 
Sie immer daran, daß Sie eine ande¬ 
re Adresse auslesen müssen, als Sie 
beschreiben wollen. 

Häufig existiert kein entsprechendes 
Leseregister, so daß die aktuellen Re¬ 
gisterinhalte nur aus den Strukturen ent¬ 
nommen werden können, durch die sie in¬ 
itialisiert wurden (z.B. die Farbregister). Es 
ist daher auch verboten, einzelne Bits von Cu- 
stomchip-Registern mit BSET oder BCLR 
bzw. unter Verwendung einer OR- bzw. AND- 
Maske zu ändern, da diese Befehle vorher ei¬ 
nen Lesezugriff auf dieselbe Adresse versuchen 
(und dadurch einen Zufallswert in das Register 
schreiben)! Sie müßten dann schon das ent¬ 
sprechende Leseregister in ein Datenregister 
auslesen, das gewünschte Bit im Datenregister 
verändern und anschließend das geänderte Da¬ 
tenregister in das entsprechende Schreibregister 
der Customchips zurückschreiben. 

Zur Vereinfachung dieser Problematik kön¬ 
nen bei bestimmten Registern (z.B. DMACON 
und INTENA) auch einzelne Bits durch eine 
spezielle Maske gesetzt bzw. gelöscht werden, 
ohne vorher die alten Werte auslesen zu müs¬ 
sen. Dabei bestimmt dann Bit 15 der Maske, ob 
gesetzt (1) oder gelöscht (0) werden soll, und 
jedes gesetzte Bit 0-14 der Maske kennzeich¬ 
net ein zu änderndes Bit. 

Wenn Sie ein Customchip-Schreibregister 
mit dem Wert $0000 belegen wollen, beachten 
Sie bitte, daß der »CLR«-Befehl beim 
MC68000-Prozessor zuerst einen Lesezugriff 
ausführt (und dadurch einen Zufallswert in das 
Register schreibt) und erst danach den Wert 
$0000 schreibt. Verwenden Sie daher bitte 
M0VE.W #$0000,... 

und vergewissern Sie sich, daß Ihr Assembler 
dieses nicht zu 
CLR.W ... 

optimiert! Besonders bei den sog. Strobe-Re¬ 
gistern kann das zu Problemen führen, da das 


Register hier ggf. zweimal getriggert wird. Da 
bei Strobe-Registern der geschriebene Wert 
egal ist. sollte man hier besser 
M0VE.W #1, ... 

schreiben, was eine ungewollte Optimierung si¬ 
cher verhindert. 

Bitte seien Sie sich der Brisanz, die in den 
Customchips und den Geisterbildem steckt, be¬ 
wußt: Ein einziger Lesebefehl auf eine unbe¬ 
legte Adresse, an der sich zufällig ein Geister¬ 
bild eines Customchip-Registers befindet, kann 
den Computer zum Abstürzen bringen. Ein un¬ 
bedachter Zugriff auf bestimmte Customchip- 
Register könnte z.B. die Interrupts sperren, so 
daß der Computer auf keine Tastatur- oder 
Mausbetätigungen mehr reagiert, oder den 
Blitter starten und dadurch große RAM-Berei- 
che überschreiben, oder den Bildschirmaufbau 
völlig durcheinander bringen (»Fireworks- 
Display«). 

Seien Sie besonders vorsichtig, wenn Sie 
dem Benutzer in Ihrem Programm die Mög- 
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lichkeit geben, Adreßbereiche einzugeben, die 
dann durchsucht, angezeigt oder sonstwie be¬ 
arbeitet werden sollen. Bei Disassembler-Mo¬ 
nitoren kann ein einziger unbedachter Befehl 
(z.B. zu »großzügig« bemessene Bereichs¬ 
grenzen für Suchbefehle) das gesamte System 
lahmlegen. Besonders beachtenswert ist, daß 
auch reine Lesebefehle zum Absturz des Ami- 
ga führen können (Seka-Besitzer können ja mal 
»q $dff 000 « 

versuchen). Bei Intuition-orientierten Debug¬ 
gern (z.B. »DBug« oder »Metascope«) führt 
z.B. auch ein unbedachtes Verschieben des 
Proportional-Gadgets in Mcmory-Windows 
zum Systemabsturz. 

Flagzugriff: Bitte 
Bit für Bit 

Häufig sind den einzelnen Bits von Spei¬ 
cherstellen (z.B. den Registern der CIAs) ganz, 
bestimmte Aufgaben zugeordnet (z.B. Power¬ 
LED an/aus). Wenn Sie nur eine dieser Funk¬ 
tionen ändern möchten (z.B. Power-LED aus), 
dürfen Sie natürlich auch nur das eine, für die 
spezielle Aufgabe zuständige, Bit der Spei¬ 
cherstelle verändern; die anderen Bits müssen 
unverändert bleiben! Da man den Zustand die¬ 
ser anderen Bits nicht vorhersehen kann (!), 
muß das gewünschte Bit entweder über BSET 
bzw. BCLR einzeln gesetzt bzw. gelöscht wer¬ 
den. oder es wird eine OR- bzw AND-Maske 
verwendet, um die anderen Bits unverändert zu 
lassen. Gehen Sie niemals davon aus, daß die 
anderen Bits bei jedem Lesen immer gleich 
bleiben (selbst wenn sie das zufällig mal sein 
sollten)! 

Z.B. schaltet man so die Power-LED (und 
gleichzeitig auch den Audio-Filter) aus: 
bset #1,$bfe001 

Genausogut hätte man auch 
ori.b #%00000010,$bfe001 
verwenden können. 

OR- und AND-Masken bieten den Vorteil, daß 
gleich mehrere Bits der Speicherstelle gleich¬ 
zeitig verändert werden können. 

Bitte beachten Sie dabei, daß der Amiga ein 
Multitasking-Betriebssystem hat. Wenn Sie 
z.B. den obigen Befehl in drei Befehle auf¬ 
spalten würden 
move.b $bfe001,d0 
ori.b #%00000010,d0 
move.b dO,$bfe001 

könnte es passieren, daß. nachdem Sie 
SOOBFEOOl ausgelesen haben, ein Taskwech- 
sel erfolgt und ein anderer Task SOOBFEOOl 
ändert. Der vorher ausgelesene Wert in DO wä¬ 
re dann nicht mehr aktuell und das Zurück¬ 
schreiben könnte dann einen schwerwiegenden 
Fehler bewirken. 

Was kann man machen, um Fehler zu ver¬ 
meiden? Nehmen Sie Änderungen von Spei¬ 
cherstellen, auf die möglicherweise auch ein 
anderer Task zugreifen könnte, daher möglichst 
in einem einzigen Befehl vor, oder sperren Sie 
(besonders bei Programmierung in Hochspra¬ 
chen) notfalls vorherdas Multitasking (Forbid). 
Man nennt das daher auch »in an atomic way« 


(zu deutsch etwa: auf untrennbare Art und Wei¬ 
se). Einige Felder spezieller Strukturen sind 
von Commodore ausdrücklich dazu freigege¬ 
ben, »in an atomic way« geändert zu werden 
(z.B. darf man das »RMBTRAP«-Flag von In¬ 
tuition-Windows so direkt manipulieren). 

Prozessoren ab dem MC68010 besitzen ein 
sogenanntes Vector-Base-Register (VBR), das 
es erlaubt, die Exception-Vektoren, die beim 
MC68000-Prozessor immer im ersten KByte 
($00000000-$(XXX)03ff) liegen, an jede ande¬ 
re Adresse zu verlegen. Ab OS 2.0 verlegt das 
Betriebssystem die Vector-Base normalerwei¬ 
se in das schnellste vorhandene RAM. Dadurch 
wird das Zeitverhalten, besonders bei der An¬ 
nahme von Interrupts, verbessert, da der Pro¬ 
zessor beim Zugriff auf einen dieser Auto-Vek¬ 
toren nicht auf die Freigabe des Chip-RAMs 
durch die Customchips zu warten braucht. Es 
war zwar schon immer unerlaubt, die Auto- 
Vektoren (Interrupt- Vektoren, Exception- 
Vektoren) direkt zu verändern, aber bei verän¬ 
dertem VBR führt das jetzt mit Sicherheit zu 
Fehlfunktionen. 

Bis einschließlich Kickstart 1.3 konnte man 
ungefähr abschälzen. wo z.B. die Exec-Library 
oder der Supervisorstack angelegt werden, da 
hierfür nur einige festvorgegebene Adreßbe¬ 
reiche in Frage kamen. Seit OS 2.0 könnten 
diese Bereiche überall im RAM liegen. 

Seit OS 2.0 ist das Betriebssystem wesent¬ 
lich »intelligenter« und benutzerfreundlicher 
geworden. Windows werden auf Wunsch z.B. 
automatisch soweit verkleinert oder verscho¬ 
ben, bis sie auf den Screen passen. Das kann 
aber auch einige unerwünschte Effekte haben. 
Auch wenn ausdrücklich verlangt wird. z.B. ein 
Window auf eine bestimmte Größe zu bringen 
(SizeWindow), ist nicht sicher, daß es auch 
wirklich diese Größe hat. Z.B. läßt sich das 
Nicht-Backdropwindow der OS 2.0-Work- 
bench auch durch direktes »SizeWindowO« 
nicht kleiner machen, als durch das Size-Gad- 
get mit der Maus. 

Routinen umlenken 
aber richtig 

Viele Programme verwenden die Funktion 
»SetFunctionO« der »exec.Iibrary«, um 
Sprungvektoren von Libraries auf eigenen Co¬ 
de umzuleiten, und die ursprüngliche Funktion 
dadurch zu patchen. Wenn Sie das auch ma¬ 
chen wollen, beachten Sie bitte, daß es keine 
hundertprozentig sichere Methode gibt, einen 
solchen Patch wieder aufzuheben: 

Stellen Sie sich z.B. vor, Ihr Programm wür¬ 
de die Funktion »OpenWindowQ« patchen, um 
z.B. alle Windows automatisch auf einen ei¬ 
genen Screen umzuleiten. Nehmen wir an (nur 
um der Einfachheit halber konkrete Werte zu 
haben), die alte Funktion OpenWindow() läge 
bei $(X)F85000 und ihre neue Funktion begän¬ 
ne bei $00081000. Ihr Programm würde dann 
(in diesem Beispiel) in der NewWindow- 
Struktur. die der gepatchten OpenWindowQ- 
Funktion übergeben wurde, den Windowtyp 
auf CUSTOMSCREEN setzen, und die Adres¬ 


se des eigenen Screens eintragen. Anschließend 
würde Ihr Programm die originale OpenWin- 
dow()-Funktion anspringen, also JMP 
$00F85000. 

Nehmen wir weiter an, jetzt würde ein an¬ 
deres Programm gestartet, das ebenfalls die 
OpenWindow()-Funktion patched, um z.B. je¬ 
des neugeöffnete Window mit einem Size-Gad- 
get zu versehen. Dieses Programm (nennen wir 
es »Programm B«) erhält von SetFunctionO als 
alte Adresse der original OpenWindow(> 
Funktion jetzt natürlich nicht $()()F85(X)() ge¬ 
liefert. sondern (wir hatten die Funktion ja be¬ 
reits gepatched) $00081000. Anschließend 
würde dann vielleicht noch »Programm C« ge¬ 
startet. das ebenfalls dieselbe Funktion patched. 
Wenn nun die OpenWindowQ-Funktion auf¬ 
gerufen wird, wird zuerst der Patch von Pro¬ 
gramm C ausgeführt, dann der von Programm 
B, dann der Ihres Programms, und schließlich 
wird die original OpenWindow()-Funktion 
ausgeführt. 

Stellen Sie sich nun vor. was passieren wür¬ 
de. wenn Sie »Programm B« beenden? Zuerst 
stellt das Programm den OpenWindow-Vektor 
wieder auf den Wert zurück, den es beim Auf¬ 
ruf von SetFunction dort vorgefunden hat, al¬ 
so zeigt er jetzt in Ihr Programm. Wenn Pro¬ 
gramm B anschließend terminiert, wird der 
Speicher, den das Programm beansprucht hat¬ 
te, wieder freigegeben und könnte z.B. von an¬ 
deren Tasks alloziert und überschrieben wer¬ 
den. Die OpenWindow()-Funktion würde jetzt 
nie mehr den Code von Programm C aus¬ 
führen, da dieses ja aus der »Umleitungskette« 
entfernt wurde. Wenn nun aber Programm C 
enden soll, so würde es auch den OpenWin¬ 
dow-Vektor wieder auf den alten Wert zurück¬ 
setzen. den SetFunctionO geliefert hatte. Die¬ 
ser zeigt aber auf Programm B. das ja bereits 
beendet, und dessen ursprünglicher Code im 
Speicher natürlich überschrieben wurde. Beim 
nächsten Aufruf der OpenWindowO- Funktion 
würde dieser sinnlose Code angesprungen, und 
ein böser Systemabsturz wäre die Folge. 

Eine relativ sichere Lösung für dieses Pro¬ 
blem. ist folgende: Wenn Ihr Programm been¬ 
det werden soll, prüfen Sie, ob der von Ihrem 
Programm gepatchte Vektor noch immer auf 
die Adresse zeigt, die Sie bei SetFunction an¬ 
gegeben haben (im eigenen Programm). Wenn 
ja, können Sie den Vektor wieder auf den Ori¬ 
ginal-Wert setzen und Ihr Programm gefahrlos 
beenden, denn mit Sicherheit hat nach Ihnen 
kein weiteres Programm denselben Vektor ge¬ 
patched (oder aber es ist bereits wieder been¬ 
det worden). Zeigt der Vektor auf eine andere 
Adresse, so hat ein anderes Programm densel¬ 
ben Vektor nach Ihnen gepatched. Wenn Sie 
jetzt einfach Ihr Programm beenden würden, 
würde der nächste OpenWindowQ-Aufruf ins 
Leere springen und mit Sicherheit zum Guru 
führen. Daher informieren Sie einfach den Be¬ 
nutzer. daß ein Beenden momentan leider 
(noch) nicht möglich ist. und empfehlen Sie 
ihm. doch bitte zuerst ein anderes Programm zu 
beenden, daß möglicherweise den Vektor spä¬ 
ter gepatched haben könnte. Anschließend 
können Sie entweder wieder normal mit Ihrem 
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Programm fortfahren, oder in regelmäßigen 
Abständen (durch DelayO-Verzögerungen) den 
Vektor prüfen, bis er den gewünschten Wert 
hat. Eine gewisse Gefahr besteht trotzdem 
noch, falls ein anderes Programm noch Ihren 
Code (die gepatchte Funktion) ausführt, 
während Ihr Programm endet. Daher sollte man 
nach Zurücksetzen des gepatchten Vektors auf 
den alten Wen, noch etwas warten (z.B. der 
Aufruf Delay(500) ist mehr als ausreichend), 
bevor man das Programm beendet und dadurch 
den Speicherbereich zum Überschreiben durch 
andere Tasks freigibt. 

Um sich davor zu schützen, selbst mehrfach 
gestartet zu werden, was natürlich meistens 
nicht besonders sinnvoll wäre, sollte Ihr Pro¬ 
gramm am Anfang prüfen, ob es bereits läuft. 
Dazu wird in der Regel ein öffentlicher Mes¬ 
sageport mit einem eindeutigen Namen einge¬ 
richtet, nach dem das Programm jedesmal 
sucht, und abbricht, wenn er bereits existiert. 

Watschen für's 
Patchen 

Um eins ganz klar festzustellen: Es ist kein 
gutes Zeichen großer Programmierkunst, Sy¬ 
stemfunktionen zu patchen, nur um ein spezi¬ 
elles Programm, das die gepatchte Funktion ir¬ 
gendwann einmal benutzt, etwas zu verbessern. 
Hier sei an die zahllosen Programme erinnert, 
die AmigaBASIC etwas benutzerfreundlicher 
machen wollten (eigener Filerequester, größe¬ 
rer Cursor, etc.) und dafür jeweils wichtige Sy¬ 
stemfunktionen (OpenWindowO, RectFilK)) 
gepatehed haben. Viel besser wäre es, das be¬ 
treffende Programm selbst zu patchen. 

Fast alle Funktionen der Libraries liefern ein 
Ergebnis zurück, das dann immer im Prozes¬ 
sorregister DO übergeben wird. Häufig bedeu¬ 
tet dabei der Wert Null, daß ein Fehler aufge¬ 
treten ist. Bitte beachten Sie als Assembler¬ 
programmierer, daß die Statusflags (insbeson¬ 
dere das Zeroflag) des Prozessors dabei in der 
Regel nicht entsprechend dem Wert in DO ge¬ 
setzt sind. Sie müssen DO daher selbst auf Null 
überprüfen, z.B. durch TST.L. Beachten Sie 
bitte auch, daß der MOVE-Befehl das Zeroflag 
nur dann aktualisiert, wenn ein Transport von 
Daten stattgefunden hat. 
move.l dO,DOSBase 
beq.s Fehler_noDOS 
ist also korrekt, 
move.l d0,a6 
beq.s Fehler 

aber nicht, weil der MOVE-Befehl hier nicht 
das Zeroflag aktualisiert. 

Wenn ein Adreßzeiger (APTR) in einer 
Struktur den Wert Null enthält, bedeutet das, 
daß dieses Feld der Struktur unbenutzt ist. Prü¬ 
fen Sie diesen Sonderfall immer, bevor Sie evtl, 
die Adresse Null referenzieren. Dieser Fehler 
wird z.B. häufig gemacht, wenn beim Start ei¬ 
nes Programmes von der Workbench der Na¬ 
me eines ggf. durch die erweiterte Auswahl se¬ 
lektierten Icons ermittelt werden soll. 

Die Speicherstelle Null hat im Betriebssy¬ 
stem des Amiga lediglich eine Funktion, näm¬ 


lich im Falle des automatischen Neustarts 
durch einen fatalen Fehler (Guru) zu bewirken, 
daß vorher die entsprechende blinkende Alert- 
Meldung (früher auch »Guru-Meditation« ge¬ 
nannt) angezeigt wird. Dazu wird vor dem 
Auslösen des ColdReboot das Wörtchen 
»HELP« in die Speicherstellen SOOOOOOOO- 
$00000003 geschrieben. Findet die Reset- 
Routine später dieses Wort, so wird erst die 
Alert-Meldung angezeigt, bevor der Bootvor¬ 
gang fortgesetzt wird. In jedem Fall wird das 
Longword ab $00000000 wieder mit Null 
gelöscht, bevor der Benutzer die Kontrolle über 
den Amiga zurückerhält. (Normalerweise holt 
ein MC680x0-Prozessor beim Reset aus dem 
ersten Longword des Adreßbereichs seinen in¬ 
itialen Supervisor-Stackpointer. Durch das 
Memory-Overlay des Amiga wird beim Reset 
aber bekanntlich dort kurzzeitig das ROM ein¬ 
geblendet.) 

Verwenden Sie die einzelnen Felder von Da- 
ten-Strukturen des Betriebssystems nur, wenn 
diese ausdrücklich zur Verwendung freigege¬ 
ben sind, und nur unter den jeweils dokumen¬ 
tierten Bedingungen. Besondere Vorsicht ist 
geboten, wenn in den Feldern Adreßzeiger er¬ 
wartet werden, und man über diese vermeint¬ 
lichen Zeiger auf andere Daten referenziell. Als 
Beispiel sei hier ein sehr verbreiteter Fehler an¬ 
geführt, der zum Versagen vieler Kickstart 1.3- 
Programme unter OS 2.0 und höher führt: 

Die Programme haben für ihr Window u.a. 
folgende IDCMP-Flags gesetzt: 

- IDCMP_GADGETDOWN, 

- IDCMP_GADGETUP, 

- IDCMP_MOUSEBUTTONS. 

Wenn der Benutzer nun eine mit diesen 
Flags assoziierte Funktion ausführt, also z.B. 
ein Gadget anklickt, oder eine Maustaste 
drückt, sendet Intuition eine Message an den 
Userport des Windows. Das Programm holt 
diese Message mit »GetMsgO« vom Message- 
port ab. kopiert relevante Teile der Message in 
eigene Speicherbereiche und sendet die Mes¬ 
sage dann mit »ReplyMsgO« wieder zurück. 

Falls die Message durch ein angeklicktes 
Gadget ausgelöst wurde (IDCMP_GADGE- 
TUP oder IDCMP_GADGETDOWN), enthält 
das Feld »im_IAddress« einen Pointer auf die 
Gadget-Struktur. Das Feld »gg_GadgetID« 
der Gadget-Struktur enthält eine vom Pro¬ 
grammierer festgelegte Nummer, anhand derer 
das Programm das betreffende Gadget identi¬ 
fizieren kann. 

Da Intuition den durch eine Intuition-Mes¬ 
sage belegten Speicher erst für eine neue Mes¬ 
sage verwenden kann, wenn der Empfänger die 
Message mit »ReplyMsgO« beantwortet hat, 
sollte das Programm die Message so schnell 
wie möglich beantworten (nachdem vorher die 
benötigten Daten aus der Message kopiert wur¬ 
den). Die fehlerhaften Programme wollen hier 
etwas »zu schnell« sein, denn sie verzichten, 
um die vermeintliche GadgetID zu erhalten, auf 
einen Test, ob die Message überhaupt von ei¬ 
nem Gadget ausgelöst wurde. 

Doch nun kommt's: Wenn die Intuition-Mes¬ 
sage nicht durch ein angeklicktes Gadget aus¬ 
gelöst wurde, sondern z.B. durch einen Maus¬ 


klick an eine freie Stelle des Windows 
(IDCMP_MOUSEBUTTONS). ist das Feld 
»im_IAddress« ungültig! Offiziell gilt 
»irnJAddress« in diesem Falle schon immer 
als Undefiniert, jedoch haben sich manche Pro¬ 
grammierer auf ein ganz bestimmtes undoku¬ 
mentiertes Verhalten verlassen. 

Bis einschließlich Kickstart 1.3 enthielt 
»im_IAddress« im Fall eines IDCMP_- 
MOUSEBUTTONS-Events den Wert Null. 
Das fehlerhafte Programm hat dann also die 
vermeintliche GadgetID nicht aus einer Gad¬ 
get-Struktur gelesen, sondern aus der absoluten 
Adresse $(X)(XXX)26 (NULL + gg_GadgetID). 
Bei Prozessoren ohne VBR. also dem 
MC68000, oder bei VBR=0, befinden sich an 
dieser Adresse die Bits 0-15 des Trace-Excep- 
tion-Vektors. (Vektor 9 = VBR+S024) 

Bis Kickstart 1.3 lesen Programme mit die¬ 
sem Programmierfehler also »lediglich« eine 
falsche GadgetID. Da es unwahrscheinlich ist, 
daß ein Programm zufällig ein Gadget mit die¬ 
ser ID ($0826 bei Kickstart 1.3) verwendet, und 
die Programme später doch noch die 
»im_Class« der Message überprüfen, reagieren 
die Programme trotzdem wie beabsichtigt. 

Macken mit der 
Maus 

Ab OS 2.0 ist »im_IAddress« aber im Falle 
eines IDCMP_MOUSEBUTTONS-Events 
nicht mehr Null. Unter OS 2.04 (V37.175; es 
ist nicht sicher, daß das unter späteren Kick¬ 
start-Versionen so bleibt!), enthält »im_IAd¬ 
dress« dann »Delta-Mouse«-Koordinaten: Die 
Strecke, um die die Maus vom Moment des 
Drückens bzw. Loslassens der Maustaste, bis 
zum Versenden der entsprechenden Intuition- 
Message, bewegt wurde, wird in »im_IAd- 
dress« abgelegt. Der X-Anteil im höherwerti- 
geren Teil (Bits 16-31) und der Y-Anteil im 
niederwertigeren Teil (Bits 0-15). Dabei wird 
eine Bewegung nach links oben negativ, und 
nach rechts unten positiv eingetragen. Jeder un¬ 
gerade Wert könnte dann einen Address-Error 
bewirken. 

Ein Beispiel: Nehmen wir an. Sie bewegen 
die Maus relativ langsam nach unten und 
drücken dann an einer Stelle des Windows, die 
kein Gadget enthält, die linke Maustaste. In der 
Intuition-Message (vom Typ »IDCMP_MOU- 
SEBUTTONS«), die das fehlerhafte Programm 
dann erhalten würde, enthält das Feld 
»im_IAddress« (Offset $1C) den Wert 
$00000001. Ein Befehl wie 

M0VEA.L $1C(A2),A0 

liest dann diesen vermeintlichen Pointer auf ei¬ 
ne Gadget-Struktur aus, das Adreßregister A0 
enthält also $(XXXXXX)1. Ein nachfolgender Be¬ 
fehl wie z.B. 

M0VE.W $26(AO),(A3) 

soll eigentlich das Feld »gg_GadgetID« (Off¬ 
set $26) der Gadget-Struktur auslesen (und in 
das Word schreiben, auf das A3 zeigt). Da A0 
aber $00000001 ist, versucht der Prozessor 
nun, ein Word an der Adresse $00000027 
($0026+$00000001) zu lesen. Abgesehen da- 
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von, daß sich an dieser Adresse niemals eine 
Gadget-Struktur befindet, ja die Adresse selbst 
sogar ungültig sein könnte (z.B nichtbestück- 
ter RAM-Bereich), ist die Adresse ungerade!!! 
Ein MC680(X)-Prozessor löst also eine Ad- 
dress-Error-Exception aus, die normalerweise 
zum gefürchteten »Software Failure«-Reque- 
ster mit Error #80(XX)003 führt. 

Um diesen Fehler zu vermeiden, muß vor 
dem Referenzieren des vermeintlichen Pointers 
auf die Gadget-Struktur geprüft werden, ob die 
Message vom Typ (im_Class) IDCMP_GAD- 
GETUP oder IDCMP_GADGETDOWN ist, 
und nur dann darf der Versuch unternommen 
werden, das Feld »im_lAddress« als Pointer 
auf eine Gadget-Struktur zu interpretieren, um 
dort die »gg_GadgetID« auszulesen. 

Wenn Sie selbst ein vollausgebautes System 
(Festplatte, mehrere Diskettenlaufwerke, etli¬ 
che Megabyte RAM. etc.) besitzen, bedenken 
Sie bitte auch, daß nicht jeder Amiga-Besitzer 
in dieser glücklichen Lage ist. Besitzer von nur 
einem Diskettenlaufwerk haben häufig be¬ 
stimmte Files, die sie seltener benötigen, von 
Ihrer Boot-Diskette (normalerweise eine Kopie 
der Workbench-Diskette) gelöscht, um Platz 
für wichtigere Files zu erhalten. Geben Sie in 
der Dokumentation Ihrer Programme daher 
möglichst an, wenn das Programm selten ge¬ 
brauchte Files nachladen möchte. Ein sehr be¬ 
kanntes Programm startet z.B. CLI-Befehle 
durch die Exeeute()-Funktion der DOS- 
Library. Da diese Funktion keine Pfade (Path- 
Befehl) berücksichtigt, startet das Programm 
vorher den CLI-Befehl »Which«, um den ex¬ 
pliziten Pfad zu erhalten, und hängt sich sang- 
und klanglos auf, wenn es den »Which«-Befehl 
nicht findet. Bedenken Sie. daß für Besitzer 
von nur einem Diskettenlaufwerk nahezu jedes 
nachzuladende File mit einem Diskettenwech¬ 
sel verbunden und daher sehr nervtötend ist. 
Leider finden sich häufig Programme, die Res¬ 
sourcen anfordern, die sie nicht benötigen, z.B. 
braucht ein Programm, das vom CLI/Shell ge¬ 
startet wurde, in der Regel nicht die Icon- 
Library. da sie meist nur zum Nachladen des 
»,info«-Files und Auswerten der Tool-Types 
beim Start von der Workbench benötigt wird. 

Wenn Ihr Programm von der Workbench ge¬ 
startet werden kann und Tool-Types aus dem 
».info«-Fi!e auswertet, aber sonst keine weite¬ 
ren Files mehr nachzuladen braucht, sollten Sie 
das aktuelle Directory mit CurrentDirt ) bereits 
nach dem Laden des ».info«-Files (GetDisk- 
Object) wieder auf den initialen Wert zurück¬ 
stellen und nicht erst am Ende des Programms. 
Sonst muß der Benutzer beim Beenden Ihres 
Programms extra nocheinmal die Diskette mit 
Ihrem Programm einlegen. Das ist hochgradig 
frustrierend, zumal ja überhaupt nichts nach¬ 
geladen zu werden braucht. (Lediglich die Dis¬ 
kette muß eingelegt sein, um das Current Di¬ 
rectory zuweisen zu können.) 

Konfigurationsflies für spezielle Voreinstel¬ 
lungen sind eine feine Sache, aber es wäre 
wünschenswert, wenn Ihr Programm diese Fi¬ 
les nicht nur in »S:« oder »Devs:«, sondern 
auch im aktuellen Directory suchen würde. Be¬ 
sitzer nur eines Diskettenlaufwerks ersparen 


sich (wenn Sie Ihr Programm nicht auf eine 
Workbench-Diskette kopieren wollen), jedes¬ 
mal einen Diskettenwechsel. Außerdem 
braucht man dann zum ersten Ausprobieren des 
Programms keine umständlichen Installationen 
(Konfigurationsfile kopieren) durchzuführen. 

Wechseln Sie nie eine Diskette, während das 
Betriebssystem gerade lesend oder schreibend 
auf sie zugreift. Bei Programmen, die das 
Trackdisk-Device umgehen und die Disket¬ 
tenlaufwerke direkt ansprechen, kann die 
Drive-LED (Leuchtdiode) leider oft nur nur als 
grober Hinweis darauf verstanden werden, ob 
momentan auf die eingelegte Diskette zuge¬ 
griffen wird, oder nicht (die Diskette also ge¬ 
wechselt werden darf). Die LED des einge¬ 
bauten Laufwerks (»DFO«) läßt sich völlig un¬ 
abhängig vom Antriebsmotor ein- und aus¬ 
schalten. Am Anschluß für die externen Dis¬ 
kettenlaufwerke »DF1«-»DF3« existiert keine 
Leitung zum Anschluß einer LED. Daher wird 
die LED häufig parallel zum Laufwerksmotor 
geschaltet, d.h. die LED leuchtet, wenn der 
Motor läuft. Manche Fremdhersteller steuern 
die LED aber auch durch die Drive-Select-l^i- 
tung an, wobei die Leuchtdauer häufig noch 
durch ein Monoflop auf etwa 1/2 Sekunde ver¬ 
längert wird. Wenn ein Programm nun ca. 2- 
mal pro Sekunde das Laufwerk anspricht (z.B. 
um den Laufwerksmotor explizit auszuschal¬ 
ten). kann die LED auch ständig leuchten, ob¬ 
wohl der Laufwerksmotor aus ist. und nicht auf 
die Diskette zugegriffen wird. 

Aktivieren Sie bei wichtigen Disketten mög¬ 
lichst immer den Schreibschutz (durch Ver¬ 
schieben des kleinen Plastikschiebers in der 
oberen Ecke der Diskette, so daß das recht¬ 
eckige Loch frei ist). Entgegen Gerüchten aus 
der Virus-Szene ist es unmöglich (auch unter 
Umgehung des Betriebssystems) auf eine so 
schreibgeschützte Diskette zu schreiben, bzw. 
Daten zu löschen und dadurch zu zerstören. 

Schreibschutz bei 
Spielen 

Vor allem bei neugekaufter Original-Soft¬ 
ware (besonders Spielen) sollten Sie als erstes 
prüfen, ob der Schreibschutzschieber auch in 
Schreibschutzstellung ist. Unverständlicher¬ 
weise ist das leider meistens nicht der Fall, die 
Hersteller wollen wohl die zwei Sekunden Ar¬ 
beitszeit pro Diskette einsparen. Bei einigen 
Disketten (z.B. den neueren Workbench-Dis- 
ketten) fehlt der Schreibschutzschieber ganz, so 
daß diese Disketten mit einem normalen (un- 
manipulierten) Diskettenlaufwerk überhaupt 
nicht beschrieben werden können. 

Manche Programme, speziell Grafik-De¬ 
mos. sperren während ihrer Laufzeit das Mul¬ 
titasking (Forbid). um einen fließenderen Be¬ 
wegungsablauf der Animationen zu erzielen. 
Leider wird dabei häufig vergessen, zu warten, 
bis das Diskettenlaufwerk, von dem das Pro¬ 
gramm gerade geladen wurde, zum Stillstand 
gekommen ist. Der Laufwerksmotor dreht sich 
dann solange, bis das Programm endet und das 
Multitasking wieder eingeschaltet wird. 


Anders als bei Festplatten, bei denen die 
Schreib-/Leseköpfe auf einem Luftkissen über 
den Platten schweben und diese dadurch in 
keinster Weise mechanisch strapazieren, wird 
der Schreib-/Lesekopf bei den Diskettenlauf¬ 
werken durch eine Feder gegen die Ober¬ 
flächen der Diskette gedrückt, was auf die Dau¬ 
er natürlich zur Abnutzung der magnetischen 
Beschichtung der Disketten und Verschmut¬ 
zung bzw. Abrieb des Schreib-/Lesekopfes 
führt. Sollten auch Sie einmal das Multitasking, 
oder gar die Interrupts, für längere Zeit sperren 
wollen (müssen), schalten Sie anschließend ex¬ 
plizit die Laufwerksmotoren aus. Auch vor ei¬ 
nem selbst absichtlich per Software ausgelösten 
Reset |4] sollten Sie (nach Sperren der Inter¬ 
rupts) die Laufwerksmotoren ausschalten. 

Hier ein Assemblerprogramm zum Aus¬ 
schalten aller Diskettenlaufwerksmotoren (bei 
eingeschaltetem Multitasking ist es wirkungs¬ 
los und sollte dann nicht angewendet werden): 
moveq #3,d0 ;Bitnummer 
DriveLoop: 

bset #7,$bfdl00 ;DiskMotor aus 
bclr d0,$bfdl00 ;kurzer Impuls 
bset d0,$bfdl00 ; auf DriveSelect 
addq.b #l,dO 
cmpi.b #7,d0 

bne.s DriveLoop ;nächstes Laufwerk 

Beachten Sie, daß es nur eine gemeinsame 
Signalleitung für alle vier Laufwerksmotoren 
gibt (Bit 7 von SBFDIOO). Daher ist jedes Dis¬ 
kettenlaufwerk mit einem Flipflop ausgerüstet, 
das den Zustand der Motor-Signalleitung in 
dem Moment speichert, wo das jeweilige 
Laufwerk selektiert wird. Deshalb sind jeweils 
drei Schreibzugriffe auf SBFDIOO nötig, um ei¬ 
nen Laufwerksmotor (sicher) auszuschalten. 

Seit OS 2.0 läuft der Laufwerksmotor der 
Diskettenlaufwerke nach Beendigung des letz¬ 
ten Schreib-/Lesezugriffs auf die Diskette, 
nicht mehr so lange nach, wie vorher. Das hat 
Vor- und Nachteile. Wenn Files während dem 
Laden gleich bearbeitet (z.B. Programmfiles 
entpackt, IFF-Bilddaten aufbereitet, oder 
ASCII-Files für einen Texteditor umformatiert) 
werden, dauert die Bearbeitung auf 68(X)0- 
Rechnern häufig so lange, daß der Floppymo- 
tor ab OS 2.0 immer kurzzeitig stehenbleibt 
und dann wieder anläuft. Dadurch dauert der 
Ladevorgang oft erheblich länger, als unter 
Kickstart 1.3. Programmierer sollten diesem 
Verhalten dadurch Rechnung tragen, daß sie 
vor dem Laden genug Speicher allozieren 
(aber möglichst nicht in einem Stück), die Da¬ 
tei komplett in den allozierten Speicherbereich 
laden, und erst dann bearbeiten, oder ihre Rou¬ 
tinen soweit beschleunigen, daß der jeweils ge¬ 
ladene Teilbereich in der Nachlaufzeit des 
Floppymotors (maximal 1 Sekunde) vollstän¬ 
dig bearbeitet werden kann. uh 

Literalurh inweise: 

[ 11 Commodore-Amiga Inc.: AMIGA ROM Kemel Reference Manual: 

Libraries. Third Edition. Addison-Wesley. ISBN 0-201-56774-1 
|2| Babel. Ralph: Das Amiga-Guru-Buch. Selbstverlag. Taunusstein 
|3] Babel. Ralph: Kompalibilitätsrisiken, AMIGA-Maga/in 5.6.7,10/90, 
Markt & Technik Verlag AG. München 
|4]Zeitler. Rainer: Systemkonforme Programmierung. Faszination 
Programmieren Nr.l (AMIGA-Sondcrheft 1/93), Seite 87 f„ 
Markt & Technik Verlag AG. München 
[5]Zeitler. Rainer: Die goldenen Regeln. AMIGA-Magazin 2/93 
Seite 44 ff.. Markt & Technik Verlag AG. München 
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Mathematische Lösungen: Splines 


Amiga kratzt die Kurve 



Wie berechnet man Klaren mit dem 
Computer? Dazu gehört sicher eine 
Menge Mathematik. Der folgende Ar¬ 
tikel erläutert die Grundlagen und 
zeigt, wie man das Ganze in Assem¬ 
bler umsetzt, wobei wir fleißig von 
Copper und Blitter zur Bildschirm¬ 
darstellung Gebrauch machen. 


von Sebastian Wedeniwski 


D as englische Wort »spline« bezeichnet 
eine mechanische Vorrichtung, die von 
Zeichnern benutzt wird, um glatte Kur¬ 
ven durch endlich viele Punkte (Knoten) zu 
zeichnen. Kurz: Eine Art elastisches Kurven¬ 
lineal. Hingegen ist die Spline-Interpolation das 
mathematische Gegenstück zu diesem Prozeß 
und verbindet gegebene Punkte durch eine 
»möglichst glatte« Kurve (kleines Bild rechts). 

Als erstes wollen wir die allgemeine Aufga¬ 
be der Kurvenanpassung betrachten. Prinzipi¬ 
ell ist die Bestimmung einer Funktion zu be¬ 
schreiben. die in einer Menge von gegebenen 
Punkten eine Menge von gegebenen Werte an¬ 
nimmt. d.h. wenn die Punkte X|,x 2 ,...,x n und die 

zugehörigen Werte y,.y 2 y n gegeben sind, ist 

eine Funktion zu finden, so daß gilt 
f(x 1 )=y 1 , f(x 2 )=y 2 ,...,f(x n )=y n 

In der Anwendung wird dann eine Tabelle 
von exakten Werten gespeichert, und andere 
Werte werden mittels einer Funktion bestimmt. 


Die interpolierende Funktion von f(x) im In¬ 
tervall (a,b| wird unter der sog. Spline-Funk- 
tion s(x) gesucht, wobei für das System der 
Knoten gilt: 

a = x 2 < x 2 < ... < x N = b 

Betrachten wir nun die angenommene Form 
zwischen zwei benachbarten Knoten, so ent¬ 
spricht sie einem Polynom dritten Grades - 
d. h. einem kubischen Polynom. Infolgedessen 


ist eine Spline-Funktion stückweise aus n ku¬ 
bischen Polynomen so zusammengesetzt, daß 
die Funktion s(x) selbst und ihre beiden ersten 
Ableitungen (Steigungen des Funktionsgra- 

phen) an den Stellen x, (i=2.N-l) keine 

Sprungstellen besitzen. Mit anderen Worten ist 
die Funktion s(x) zweimal stetig differenzier¬ 
bar (Eine stetige Funktion kann man sich »oh¬ 
ne abzusetzen« gezeichnet vorstellen). Neben 



Beispiel: Kurve auf dem kürzesten Weg 


kubischen Spline-Funktionen werden in der Li¬ 
teratur auch höhere Spline-Funktionen be¬ 
trachtet. Der Einfachheit halber beschränken 
wir uns auf den kubischen Fall. Jedoch lassen 
sich die meisten Resultate leicht auf den all¬ 
gemeinen Fall - Polynom höheren Grades - 
übertragen, ln den Anwendungen genügt es 
häufig, die kubische Spline-Funktion anzu¬ 
wenden. die sich aus N-l verschiedenen kubi¬ 
schen Polynomen 

s.|(x) = a^x’+bjX^CjX+dj , j = 1,2,..,N-l 
zusammensetzt, wobei Sj(x) als das kubische 
Polynom definiert ist, welches im Teilintervall 
|Xj,Xj.|] zu verwenden ist. Also besteht die Er- 
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... und die Kurvenparameter berechnet und auf dem Bildschirm ausgibt 
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Zeugung eines Splines in der Berechnung der 
Koeffizienten a, b, c, d aus den gegebenen 
Punkten x und Werten y, z.B. muß offenbar 
8 j< x j> = y, und B j (x ul ) = y jtl 
gelten, da die Kurve die Knoten berühren muß. 
Hinzu muß die zweite Ableitung der Polyno¬ 
me - oft als Moment bezeichnet - in den Kno¬ 
ten übereinstimmen. Um die Randbedingungen 
zu beschreiben, stehen verschiedene Möglich¬ 
keiten zur Verfügung. Wir benutzten die natür¬ 
liche kubische Spline-Funktion. die sich aus 
s"i(x 1 ) = 0 und s'VjtXjj.j) = 0 
ableiten läßt. Diese Bedingungen ergeben ein 
vollständiges System von 4(N-1) Gleichungen 
mit 4(N-1) Unbekannten, das unter Benutzung 
des Gaußschen Eliminationsverfahren gelöst 


werden könnte, um alle Koeffizienten zu be¬ 
rechnen. die die Spline-Funktion beschreiben. 

Dieselbe Spline-Funktion kann jedoch be¬ 
rechnet werden, da man mit Hilfe von 
B'\(Xy.) (k = 1,2, ...,N) 
allein die interessierende Spline-Funktion s(x) 
leicht angeben kann, und damit sind in Wirk¬ 
lichkeit nur N-2 Unbekannte vorhanden. Zur 
Herleitung von Bestimmungsgleichungen für 
die s"(x) beachte man zunächst, daß s(x) in je¬ 
dem Teilintervall [Xj,Xj +1 | eine kubische Funk¬ 
tion ist, also s"(x) eine lineare Funktion (Funk¬ 
tionsgraph ist eine Gerade), die man mit Hilfe 
des Momentes m k =s"(x k ) so beschreiben kann: 
8"(x) = m j (x Jtl -x)/(x jtl -x J ) + 

m j*i(x-Xj) / (Xj^j-Xj) ,- fürxe[x j( x jtl ] 


Durch Integration erhält man 

S'(x) = -m j (x :) , 1 -x) J /2(x jtl -x j ) + 

m j + l(x-x j ) J /2(x jtl -x j ) + Aj 

8 (X) = nLj (Xj + l-XjVöfX^j-Xj) + 

mj+1(x-xj) 3 /6(xj+l-xj) + 

Ajfx-xj) + Bj 

mit den Integrationskonstanten A, und B r 
Da s(Xj) = yj und s(x j+ ,) = y j+1 gilt, erhält man 
für A| und B, die Gleichungen: 

Bj = Yj - nLj (x j+1 -x j ) a / 6 
Aj = ) / (x j+1 -x J ) - (Xj^i-Xj) )/6 

Durch Einsetzen der Integrationskonstanten, 
Substituieren von w = (x-x,)/(x J+r Xj) und wei¬ 
tere mathematische Vereinfachungen, kann 
man die Spline-Funktion anschließend wie 
folgt formulieren: 


anzahl = 

6 i Anzahl der Knoten (min. 4) 


add.l #Copper-sprite,dO 

lea $dffOOO,a6 

mulfaktor = 

100 


move #$3e0,$96(a6) 

leabild(pc) ,a0 

mulfak = 

5 ; Genauigkeitsfaktor 


move.l d0,$80(a6) 

move.l (a0)+,a4 




clr$88(a6) 

move.l (a0),dl 

x_links = 

1 ; min. 1 


move #%1000001111100000, $96(a6) 

move.l a4,(aO) 

x^rechts = 

10 ; min. 1 


leamulu88(pc),a0 

move.l dl,-<a0) 

y_oben = 

5 ; min. 1 


move.l bild2,a4 

move.l a4,a5 

y_unten = 

1 i min. 1 


Iea978(a4),a5 

bsrClearPic 

y^delta = 

240/(y_oben+y_unten) 


moveq #0,d0 

leax+4*anzahl(pc),a0 

x_delta ■ 

620/(x_rechts+x_links) 


moveq #100,dl 

move.l (a0),d0 

y__achse = 

y__delta*yoben 


move #624,d2 

x^achse ■ 

x_delta*x_links 


moveq #100,d3 

Draw: move.l d0,-(sp) 




bsrLine 

move #mulfak*mul£aktor,dl 

AllocMem = 

-198 


bsr Koordinatensystem 

bsrFunktionswert ; y-Wert in dl 

FreeMem = 

-210 


leax+4(pc),a0 

divu »mulfak,dl 

Forbid = 

-132 


leay+4 (pc) ,al 

move.l (sp),d0 

Pemiit o 

-138 


moveq »anzahl-l,d7 

move.l d0,d4 

OpenLibrary 

. -552 


move #624*mulfak,d6 

divu #mul£ak,d0 

CloseLibrary 

■ -414 


divu d7,d6 

ext.1 dO 

RawDoFmt = 

-522 


moveq #4*mulfak,d5 

lealineto(pc),al 

Write = 

-48 



move (al)+,d2 

Output = 

-60 

Tab: 

move.l d5,(a0)+ 

move (al)+,d3 




addd6,d5 

move dl,-(al) 

breite = 

88 


move.l #100*mul£ak,(al)+ 

move dO,-(al) 

bs = 

breite*312 


dbra d7,Tab 

tstdl 

bmi. s NoLine 

move.l 

4.w,a6 

Wait_Rt:move.l 4(a6),d0 

cmp#245,dl 

move.1 

»Copper Ende-sprite+5*bs,d0 


and.l #$000fff00,d0 

bpi.8 NoLine 

move.l 

#$10002,dl 


cmp.1 #$00000£00,d0 

tstd3 

j8rAllocMem(a6) 


bne.s Wait_Rt 

bmi.8 NoLine 

move.1 

dO.copperBase 


btst #10,$16(a6) 

cmp #24 5, d3 

beq Ende 


bneNoModify 

bpi.s NoLine 

add.l 

#Copper Ende-sprite,dO 



cmp.l x+4‘anzahl(pc),d4 

move.1 

dO.bild 


move #800*mulfak,d2 

beq.s NoLine 

add.l 

#2*bs,d0 


move maus+2(pc),d0 

Ieamulu88(pc),a0 

move. 1 

d0,bild2 


sub#124,d0 

Iea 978 (a4) ,a5 

leaCopper(pc),al 


mulu #2*mul£ak,d0 

bsrLine 

move 

dO,6(al) 


leax*4 (pc) ,a0 


swap 

dO 


leay(pc) ,al 

NoLine:move.1 (sp)+,d0 

move 

dO,2(al) 


move.l d0,d3 

sub.l #3*mulfak,d0 

swap 

dO 


move »anzahl-l,d7 

cmp.l x+4(pc),d0 

add.l 

#bs,dO 



bge.s Draw 

leapunkte(pc) ,a0 

Approx:move.l (a0)+,dl 

leapunkte(pc) ,a0 

moveq 

»anzahl-l,d7 


subdl.dO 
bpi.s Positiv 

moveq »anzahl-l,d7 

Int_pk:move.1 

dO,(aO) 


negdO 

Clr _pk:move (a0) + ,d0 

addq. 1 

#6, aO 



move.l (a0)+,al 

dbra 

d7,Int_pk 

Positiv: cmp d0,d2 

bclr dO,(al) 




bmi.8 Found 

dbra d7,Clr_j?k 

move 

dO,14(al) 


move d0,d2 

Ieamulu88(pc),a0 

swap 

dO 


move d3,d0 

leax+4(pc),al 

move 

dO,10(al) 


addq.l #4,al 

leay+4 (pc) ,a2 

swap 

dO 


dbra d7,Approx 

leapunkte(pc) ,a3 

add.l 

#bs,d0 


sub#2*mulfak,d3 

moveq »anzahl-l,d7 

move 

dO,22(al) 


bra.s Last 


swap 

dO 



Knoten:move.l (al)+,dl 

move 

dO,18(al) 

Found: 

subq.l #4,aO 

divu »mulfak, dl 

move.1 

copperBase,d0 


add#2*mulfak,d3 

move.l (a2)+,d2 

move 

d0,30(al) 


cmp.l (a0),d3 

divu »mulfak, d2 

swap 

dO 


bpi NoSprite 

addd2,d2 

move 

dO,26(al) 


sub#4*mulfak,d3 

Ieabs+978(a4),a5 

swap 

dO 

Last: 

cmp.l -8(a0),d3 

add(a0,d2.w) ,a5 

leasprite(pc) ,al 


bmi NoSprite 

move dl,d2 

move. 1 

d0,a0 


sub#2*mulfak,d3 

lsr#3,d2 

move 

#Copper_Ende-sprite-l,d7 


move.l d3,-(aO) 

lea(a5,d2.w) ,a5 




move maus(pc),d0 

moveq #15,d2 

Copy: move.b 

(al)+,(a0)+ 


sub#57,d0 

and.b d2,dl 

dbra 

d7,Copy 


mulu »mulfak, dO 

not.b dl 

jsrForbid(a6) 


subq #2, dO 

SilS -Splines asm«: 

move di, <a3)+ Berechnet Kur- 

lea$d£f000,a€ 
bsr Xnit 


move dO,2(al) 

move #mulfak*mulfaktor,d4 

move.1 

copperBase,d0 


bsrMakeSpline 

move.i (a3),di ven (Anfang) 
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l-w = (x j+ j-x) (Xj + 1 -Xj) ; we[ 0 ,l], 

S-, (w) = v^r jtl +(l-w)y J +(x :jtl -x) J ((w 3 -w)ni jtl - 
((l-w) 3 -(l-w) )mj) /6 

Nunmehr ist jede Spline-Funktion - bezüg¬ 
lich w - im Intervall zwischen Null und Eins 
definiert. Von Interesse sind hauptsächlich die 
Randpunkte Null und Eins, und in diesen Punk¬ 
ten hat entweder w oder (l-w) den Wert Null. 
Um nach m aufzulösen, müßen die ersten Ab¬ 
leitungen der Abschnitte des Splines in den 
Randpunkten gleichgesetzt werden. Die erste 
Ableitung der obigen Gleichung lautet: 
S(w)/dx = 8 1 (w) = ) / (Xj^j-Xj) + 

(x^j-Xj) ({3w J -l)m. j , 1 +(3(l-t) 3 -l)m ; |)/6 
Wenn wir nun s'i+l(l)=s'i(0) setzten, ergibt 
sich folgendes System aus N-2 Gleichungen: 


( x i - x i -i)m i .i+2(xi t i-xi.i)mi + (x itl -x i )m ltl = 

6 ((Yi-i-yi)/ < x i-i- x i> - (yj-Yi-i) / (Xi-Xi.i)) 

Indem wir die Beziehung 
D i = x i*i x i « di = 2(x i+1 -x 1 . 1 ) 
und 

a i = 6 < (Yi-i-Yi) / <x i+1 -x 1 ) - (yj-Yi.i) / (x i -x i _ 1 )) 
einführen, erhalten wir z.B. für fünf Knoten das 
folgende Gleichungssystem: 

( 8 2 A 2 °\^ m 2 \ \ 

A 2 ö 3 A 3 I I m 3 I = I a 3 I 

0 A 3 84 / V m 4# \«4 / 

Hierbei stimmt die Diagonale unter der 
Hauptdiagonalen mit der Diagonale über der 


Hauptdiagonalen überein (Symmetrisches tri- 
diagonales System). 

Folgend wollen wir nun die Implementation 
(»Spline.asm«) betrachten. Hierbei ist zu er¬ 
wähnen. daß es uns nicht darauf ankam. ein ab¬ 
solut bedienerfreundliches Programm zu ge¬ 
nerieren. Überdies sollte man Verbesserungen 
und Erweiterungen ausprobieren, da so der Ein¬ 
stieg in das Programm einfacher ist. Zum An¬ 
sporn kann das Programm auf folgende Funk¬ 
tionen erweitert werden (nach Schwierigkeits¬ 
grad steigend): 

- das Koordinatensystem ein-/ausschalten (in 
der Copper-Liste mit »bchg« zwischen $a2(M) 
und $b 200 umschalten) 

- die Anzahl der Knoten variabel modifizieren 


move.l a5,(a3)+ 
move.l dl,a5 
bclr dO,(a5) 
dbra d7,Knoten 
move.l copperBaae.aO 
leaCopper-eprite(aO) ,a0 


move.1 

a4,d0 

move 

dO,6(aO) 

awap 

dO 

move 

dO,2(aO) 

awap 

dO 

add.l 

#ba,d0 

move 

dO,14(aO) 

awap 

dO 

move 

dO,10(aO) 


NoModify: 

lea$a(a6),aO 
leamaua(pc) ,a2 



move 

(a2)+,dl 


move 

(a2)+,d0 


cmp#126,d0 


bpi. a 

Xmin 


move 

#126,-2(a2) 


bra.a 

NoMaua 

Xmin: 

cmp#436, dO 


bmi.a 

Xmax 


move 

#435,-2(a2) 


bra.a 

NoMau8 

Xmax: 

cmp#57,dl 


bpi. 8 

Ymin 


move 

#57,-4(a2) 


bra.a 

NoMaua 

Ymin: 

cmp#299,dl 


bmi.a 

Ymax 


move 

#298,-4(a2) 

NoMaua 

: move 

(aO),(a2) 


bra.a 

NoSprite 

Ymax: 

move.b 

(a0)+,dl 


aub.b 

(a2)+,dl 


extdl 

adddl,-5(a2) 
move.b (aO)+,dO 
aub.b (a2)+,d0 
extdO 

adddO, -4 (a2) 
move -(a0),-(a2) 
move -(a2),d0 
move -(a2),dl 
moveq #0,d3 
moveq #3,d2 
move.l copperBaae.aO 
move.b dl,(aO) 
btat #8,dl 
beq.8 noY 
baet #2,d3 
noY: addd2,dl 

move.b dl,2(a0) 
btat #8,dl 

beq.8 noZ 
baet #l,d3 
noZ: l8r#l,d0 

bcc.a noX 
baet #0,d3 
noX: move.b dO,l(aO) 

move.b d3,3(a0) ; Sprite 8etzen 

NoSprite: 

btat #6,$bfe001 
bneWait_Rt 


move.l 4.w,a6 
leaGrafikName(pc), al 
moveq # 0 ,d 0 
j ar Openbibrary(a6) 
tat. 1 dO 
beq.e NoGrafik 
move.l dO.al 
lea$d££000,a5 
move.l 38(al),$80(a5) 
clr$88(a5) 

move #$8020,$96(a5) 
jarC 108 eLibrary(a 6 ) 

NoGrafik: 

jarPermit(a6) 

move.1 copperBaae(pc),al 

move.1 #Copper_Ende-8prite+5 *ba,dO 

jarFreeMem(a6) 

leax+4(pc) ,al 

leay+4 (pc) ,a2 

moveq #anzahl-l,d7 

Change:move.1 (al),d0 

aub#mulfak*x_achae,dO 

mula #10*mulfaktor/mul£ak,d0 

div8 #x_delta,d0 

ext.1 dO 

move.l d0,(al)+ 

move.l (a2),d0 

negdO 

add#mulfak*y_achae,dO 

mula #10*mulfaktor/mulfak,d0 

div8 #y_delta,d0 

ext.1 dO 

move.l d 0 ,(a 2 )+ 

dbra d7,Change 

move #10*mulfaktor,d4 

barMakeSpline 

peam(pc) 

peax(pc) 

peay(pc) 

moveq #anzahl-2,d7 
leaDoaName(pc) ,al 
moveq #0,d0 
move.l 4.w,a6 
j ar OpenLibrary(a6) 
move.l d0,a6 
beqEnde 
jarOutput(a6) 
move.1 dO,handle 

Funktion: 

move d7,-(ep) 
addq.l #4,10(ap) 
addq.l #4,6(ap) 
addq.l #4,2(ap) 
move.l 2 (ap),a 2 
move.l 6(ap),al 
move.l 10 (ap),a 0 
barTrana 

leakoeffizient(pc),a0 
move d0,(a0)+ 
move d3,(a0)+ 
move d5,(a0)+ 
move d4,(a0)+ 
move 2(al),(a0)+ 
move 6(al),(a0) 
move d6,-(8p) 
clr.l laenge 
leakoeffizient(pc),al 
leaformat(pc),a 0 


leabuffer (pc) ,a3 
leaRoutine(pc),a2 
move.l 4.w,a5 
jarRawDoFmt(a5) 
move (ap)+,d6 
move.l laenge(pc),d3 
leabuffer(pc) ,a0 


Form: move.b 

(a0)+,d0 

beq.a 

FormOk 

cmp.b 

#"0",d0 

bmi .a 

Form 

cmp.b 

#"9",d0 

bgt.a 

Form 

lea-l(aO) ,a2 

Zahl: cmp.b 

#”0",(a0)+ 

bmi. a 

Komma 

cmp.b 

#"9", -l(a0) 

ble. a 

Zahl 

Komma: lea-l(a0),al 

move 

d6,d7 

Stelle:cmp.b 

#'' ", - (al) 

bne.a 

NoNull 

move.b 

#"0\(al) 

NoNull:dbra 

d7,Stelle 

move.1 

a2,a3 

cmp.b 

#"-",-(a3) 

bne.a 

Space 

move.b 

#"0",(a3) 

Sign: cmp.b 

#"+",-(a3) 

bne.a 

Sign 

move.b 

#"-",(a3) 

Space: cmp. 1 

a2,al 

bmi.a 

NoSpace 

move.b 

(a2)+,-2(a2) 

bra.a 

Space 

NoSpace:move.b 

#".",-(al) 

cmp.b 

#" ", -(al) 

bne.a 

Form 

move.b 

#"0", (al) 

bra.a 

Form 

FormOk: move. 1 

handle,dl 

move.1 

#buffer,d2 

jarWrite(a6) 

move 

(ap)+,d7 

dbra 

d7,Funktion 


leal2(ap),ap 

move.l handle,dl 

move.l #format2,d2 

move.l #format3-£ormat2,d3 

jarWrite(a6) 

peam+2 (pc) 

clr-(ap) 

moveq #anzahl-2,d7 

Moment:move d7,-(8p) 
addq.l #4,4(ap) 
addq.w #1,2(ap) 
clr.l laenge 
leakoeffizient(pc),al 
move 2 (sp), (al) 
move.l 4(8p),a0 
move (a0),2(al) 
lea format3(pc), aO 
leabuffer (pc) ,a3 
leaRoutine(pc) ,a2 
move.l 4.w,a5 

jar RawDoFmt (a5) »Spline.S.aSIll«: 

move.l handle,di (Fortsetzung) 
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move.l Itbuffer,d2 

move 

d5,d6 

muls d4,d0 

move.l laenge(pc),d3 

muls 

2 (al),d5 

divs dl.dO 

jsrWrite(a6) 

muls 

6(al),d4 

ext.l dO 

move (sp)+,d7 

divs 

(sp),d5 

move.l (a5)+,dl 

dbra d7,Moment 

bvsOver 

sub.l -8(a5),dl 

addq.l #6,sp 



move.1 (a2)+, d2 

move.l a6,al 

move 

d5,d7 

muls d4,dl 

move.l 4.w,a6 

divs 

(sp),d4 

divs d2,dl 

j sr CloseLibrary(a6) 

bvs Over 

ext.l dl 




sub.l dl,d 0 

mm: btst #10,$d£f016 

sub d4, 

d5 

add.l d0,d0 

bne. s mm 

muls 

d0,d5 

move.l d0,dl 


add.l 

d5,d2 

add.l d0,d0 

Ende: clr.l dO 

move.1 

(a2),d5 

add.l dl,d0 

rts 

sub6(a2) ,d5 

move.l d0,(a6)+ 


muls 

(sp),d5 

dbf d7,Loop2 

Routine:move.b dO, (a3) + 

sub. 1 

d2,d5 


addq.l #l,laenge 

divs 

dl,d5 

leam(pc) ,a6 

rts 

move 

2(a2),dl 

clr.l (a6) 


muls 

(sp),dl 

clr.l 4*anzahl(a6) 

Trans: 

muls 

d0,d7 

leaalpha+8(pc),a0 

leax2(pc) ,a3 

muls 

d3,d6 

leadelta+8(pc),al 

Ieay2(pc),a4 

add.l 

d7,d6 

leadelta2+8(pc) ,a2 

leam2 (pc) ,a5 

move 

2(al),d7 

moveq #anzahl-4,d7 

moveq #l,d7 

muls 

d5,d7 



move 

2(a2),d4 

Loop3: move.l (a0)+,d0 

MovelO:move.l (a0)+,d0 

muls 

(sp),d4 

move.l (al)+,dl 

muls #10,dO 

sub.l 

d6,d4 

move.l (a2)+,d2 

move.l dO,(a5) + 

sub.l 

d7,d4 

muls dl,d0 

move.l (al)+,d0 

divs 

(sp),d4 

divs d2,d0 

muls #10,dO 

move 

(sp)+,d7 

ext.1 dO 

move.l d0,(a3)+ 

moveq 

#-2,d6 

sub.l d0,(a0) 

move.l (a2)+,d0 



muls dl, dl 

muls #10,dO 

Stell: addq 

#l,d6 

divs d2,dl 

move.l d0,(a4)+ 

ext.l 

d7 

ext.l dl 

dbra d7,MovelO 

divu 

#10,d7 

sub.l dl,(a2) 

leax2(pc),al 

bne.s 

Stell 

dbf d7,Loop3 

leay2(pc) ,a 2 

rts 


leaalpha+anzahl*4(pc), aO 


leam2(pc) ,a0 


move 

#100*mulfaktor,-(sp) 

ClearPic: 





btst 

#14,2(a6) 

move 

(sp),d0 


bne.s 

ClearPic 

ext.l 

dO 


move. 1 

a5,$54(a6) 

divu 

#10,dO 


clr $66 < 

a6) 

move 

dO,(sp) 


move. 1 

#$1000000,$40(a6) 




move 

#300*64+44,$58(a6) 

move.1 

(aO),d0 


rts 


divs 

#10,dO 




ext.l 

dO 

maus: 

dc.w 

152,285,0 

move. 1 

dO,(aO) 




move.1 

4(aO),d0 

Init: 



divs 

#10,dO 


btst 

#14,2(a6) 

ext.l 

dO 


bne.s 

Init 

move.1 

dO,4(aO) 


move 

#-l,$72(a6) 

move.1 

(al),d0 


move. 1 

#-l,$44(a6) 

divs 

#10,dO 


move 

#breite,$60(a6) 

ext.l 

dO 


move 

#$8000,$74(a6) 

move.1 

dO,(al) 




move.1 

4 (al), dO 


move 

#255,d7 

divs 

#10,dO 


leamulu88(pc) ,a 0 

ext.l 

dO 


moveq 

#0,d0 

move.1 

d0,4(al) 




move.1 

(a2),d0 

mlo: 

move 

dO,(aO)+ 

divs 

#10,dO 


add#breite,d0 

ext.l 

dO 


dbf d7, mlo 

move.1 

dO,(a2) 


rts 


move.1 

4(a2),d0 




divs 

#10,dO 

mulu88 

: deb.w 

256,0 

ext.l 

dO 




move.1 

dO,4(a2) 

MakeSpline: 


move.1 

(aO),d0 


leax(pc) ,a0 

sub6(a0), dO 


leay(pc) ,al 

muls 

(sp),d0 


Iea4(a0),a4 

move.1 

(al) .dl 


moveq 

#anzahl-2,d7 

sub6(al),dl 


leadelta(pc),a 2 

divs 

dl.dO 


Iea4(a2),a3 

ext.l 

dO 






Loop: 

move. 1 

4(a4),d0 

move.1 

(al),d2 


sub.l 

(a4)+,d0 

muls 

d0,d2 


move. 1 

dO,(a3)+ 

divs 

(sp),d2 


dbf d7,Loop 

move.1 

(aO),d3 




subd2,d3 


leadelta2+8(pc) ,a3 

asr#l,d3 


lea4 (aO 

),a4 

divs 

#6,d0 


lea 8(al 

)<«5 

move.1 

(al),d2 


addq.1 

#4,a2 

move 

6(al),d4 


leaalpha+8(pc),a6 

addd4,d2 


moveq 

#anzahl-3,d7 

muls 

dl,d2 




muls 

d4,d4 

Loop2: 

move.1 

8(a4),d0 

divs 

(sp),d2 


sub.l 

(a4)+,d0 

move 

d2,d5 


add.l 

d0,d0 

muls 

d3,d2 


move.1 

dO,(a3)+ 

divs 

(sp),d4 


move.1 

4(a5),d0 

bvs Over 


sub.l 

(a5),d0 

addd4,d5 


move.1 

4(a2),dl 


leadelta+anzahl*4(pc), al 
leadelta2+anzahl*4(pc),a2 
leam+anzahlM (pc), a3 


moveq 

#anzahl-3,d7 

Loop4: move.1 

-(aO),d0 

move.1 

-(al),dl 

move.1 

-(a2),d2 

move.1 

(a3),d3 

muls 

d3,dl 

muls 

d4,d0 

sub.l 

dl.dO 

divs 

d2,d0 

ext.l 

dO 

move.1 

dO,-(a3) 


dbfd7,Loop4 

rts 

Funkt ionswert: 

move dl,-(sp) 
leax+8(pc) ,a 0 
leay(pc) ,al 
leadelta(pc) ,a2 
leam(pc) ,a3 


Suchen:addq.l 

#4, al 

addq.1 

#4,a2 

addq.1 

#4,a3 

cmp.l 

(a0)+,d0 

bgt.s 

Suchen 

move.1 

(al)+,dl 

move.1 

(a2),d2 

move.1 

(a3)+,d3 

sub.l 

-8(aO),d0 

muls 

(sp),d0 

divs 

d2,d0 

ext.l 

dO 

move.1 

(al),d4 

move.1 

(a3),d5 

muls 

d0,d4 

moveq 

#0, d6 

move 

(sp),d6 

sub.l 

d0,d6 

muls 

d6,dl 

add.l 

d4,dl 

muls 

d2,d2 

divs 

(sp),d2 

ext.l 

d2 

move.1 

d0,d4 

muls 

d0,d0 

divs 

(sp) ,d0 

ext.l 

dO 

muls 

d4,d0 

muls 

(sp),d4 

sub.l 

d4,d0 

divs 

(sp),d0 

ext.l 

dO 

muls 

d0,d5 


»Splines.asni«: 

(Fortsetzung) 
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move.1 d6,d4 

negd2 

muls d6,d6 
divs (sp),d6 

11: cmpd2,d3 

ext.l d6 

ble.s 12 

muls d4,d6 

exgd2,d3 

muls (sp),d4 

subq.w #4,d0 

sub.l d4,d6 

adddO.dO 

divs (sp),d6 

12: move d3,d4 

ext.l d6 

sub d2, d4 

muls d6,d3 

addd4,d4 

add.l d5,d3 

addd4,d4 

divs (sp),d3 

addd3,d3 

ext.l d3 

moveq #0,d6 

muls d3,d2 

move d3,d6 

moveq #1, d3 

subd2,d6 

moveq #6,d0 

bpl.s 13 

Again: divs d0,d2 

moveq #16,dl 
or dl,d0 

bvc.s NoError 

13: addd3,d3 

mulu #10,dO 

adddO.dO 

mulu #10,d3 

addd0,d0 

bra.s Again 

addtj.w #l,d2 

NoError:ext.l d2 

lsl#6,d2 
addq.w #2,d2 

muls d3,d2 

swap d3 

add.l d2,dl 

move d4,d3 

divs (sp),dl 

or.1 #$0bca0001,d0 

ext.1 dl 
addq.l #2,sp 

wbl: btst #14,2(a6) 

rts 

bne.s wbl 

Koordinatensystem: 

move.l d3,$62(a6) 
move d6,$52(a6) 

leabs+978(a4),a3 

move.l a5,$48(a6) 

Ieabs(a3),a3 

move.l a5,$54(a6> 

moveq #0,d0 

move.l d0,$40(a6) 

move #y achse.dl 

move d2,$58(a6) 

move dl,d3 

rts 

move #620,d2 

move.l a3,a5 

lineto:dc.w 0,0 

bsrLine 

punkte:deb.w 3*anzahl,0 

move #x achse.dO 

y: dcb.l anzahl+1,0 

move dO,d2 

delta: dcb.l anzahl+1,0 

moveq #0,dl 

delta2:dcb.l anzahl+1,0 

move #240,d3 

alpha: dcb.l anzahl+1,0 

move.l a3,a5 

m: dcb.l anzahl+1,0 ; Momente 

bsrLine 

x: dcb.l anzahl+1,0 

move #x_delta,d0 

x 2 : dc.l 0,0 

moveq #0,dl 

y2: dc.l 0,0 

move #y_delta,d2 

m 2 : dc.l 0,0 

X Punkt:moveq #0,d3 

laenge:dc.l 0 
buffer: deb.w 50,0 

Y Punkt:move d3,d4 
addd4,d4 

koeffizient: dcb.w7,0 

move.l a3,a5 

copperBase: dc.l 0 

add(a0,d4.w),a5 

bild: dc.l 0 

move dl,d4 

bild2: dc.l 0 

move dl,d5 

handle:dc.l 0 

lsr#3,d4 

lea(a5,d4 ,w) ,a5 

format: 

moveq #15,d4 

dc.b "s(x) = +%7dx",179,"+%7dx",178, 

and.b d4,d5 

dc.b "+V7dx+%7d, ", "+V7d<= x >=+V7d",10,0 

not.b d5 
bset d5,(a5) 

format2:dc.b 10,"Spline - Momente:",10,0 

addd2,d3 

format3:dc.b "m[%d] = %5d / 1000",10,0 

cmp#240,d3 
ble.s Y_Punkt 

DosName: dc.b "dos.library",0 

addd0,dl 

GrafikName: dc.b "graphics.library",0 

cmp#620,dl 
ble.s X Punkt 

EVEN 

rts 

Line: cmpdl,d3 

sprite: dc.l 0 

dc.w %0010000000000000,0 

bgt.s nohi 

dc.w %0101000000000000,0 

exgd0,d2 

dc.w %0010000000000000,0 

exgdl,d3 

dc.l 0 

nohi: move d0,d4 

Copper: 

move dl,d5 

dc.w $e0,0,$e2,0,$e4,0,$e6,0,$e8,0,$ea,0 

addd5,d5 

dc.w $120,0,$122,0 

add(a0,d5.w),a5 

dc.w $100,$b200,$108,0 

lsr#4,d4 

dc.w $8e,$3081,$90,$30cl,$92,$28,$94,$d0 

addd4,d4 

dc.w $180,0,$182,$£,$184,$£00,$186 

lea(a5,d4.w),a5 

dc.w $f00,$la2,$£00 

subd0,d2 

dc.w $188,$£0,$18a,$£,$18c,$£00,$18e,$£00 

subdl,d3 

dc.w $124,0,$126,0,$128,0,$12a,0,$12c,0 

moveq #15,d5 

dc.w $12e,0,$130,0 

and.l d5,d0 

dc.w $132,0,$134,0,$136,0,$138,0,$13a,0 

move dO,d4 

dc.w $13c,0,$13e,0 

ror.l #4,d0 

dc.l -2 

eord5,d4 

Copper Ende: 

moveq #0, d5 

© 1993 M&T 

bset d4,d5 

move #4, dO 

»Splines.asni«: Unser Programm, um 

t st d2 

Kurven durch gegebene Punkte zu 

addq.w #l,dO 

berechnen (Devpac 2.0) 


(Konstante »anzahl« löschen und mit einer 
Speicherstelle arbeiten) 

- das Koordinatensystem variabel modifizieren 
(ähnlich wie bei den Knoten) 

- während der Bestimmung der Spline-Funk- 
tion, die Anzahl der Knoten verändern (varia¬ 
ble Anzahl der Knoten verwenden) 

- die Spline-Funktion speichern/laden (benötigt 
wird der Bereich m (Momente) und die Anzahl 
der Knoten) 

Erweiterungen 

erwünscht 

Programm-Dokumentation: 

Beim Start des Programms erscheint auf dem 
Bildschirm in verschiedenen Farben: ein Ko¬ 
ordinatensystem. eine Gerade und ein kleines 
Kreuz. Das kleine Kreuz fungiert als Mauszei¬ 
ger. Beim Betätigen der rechten Maustaste wird 
ein Knoten des Splines zum Mauszeiger posi¬ 
tioniert. Hieran sollte erwähnt werden, daß die 
Spline-Funktion blau und die einzelnen Kno¬ 
ten rot sind. Die Verwaltung der Knoten erfolgt 
auf einer dynamischen Art und Weise, d.h. der 
Knoten, der in der Nähe liegt, wird verwendet; 
hinzu wird noch darauf geachtet, daß sich die 
einzelnen Knoten nicht überschneiden. Schließ¬ 
lich wird durch Betätigen der linken Mausta¬ 
ste das Programm beendet und die Spline- 
Funktion auf zwei Arten ausgegeben. Die er¬ 
ste Form ist die des kubischen Polynoms und 
in der zweiten sind die einzelnen Momente auf¬ 
gezählt (genauere Werte). Zuletzt wird auf das 
Betätigen der rechten Maustaste gewartet. 

Speziell zur Implementation: 

Zunächst die Erklärung der einzelnen Kon¬ 
stanten: Die »anzahl« steht für die Anzahl der 
Knoten, die mindestens vier betragen muß. 
Durch »mulfak« und »mulfaktor« wird eine 
Pseudo-Gleitpunktdarstellung simuliert. An¬ 
hand »xjinks«, »x_rechts«, »y_oberf«. »y_un- 
ten«, »x_delta«, »y_delta«, »y_ach.se« und 
»x_ach.se« wird das kartesische Koordinaten¬ 
system generiert. 

Im Programmabschnitt »MakeSpline« wer¬ 
den für die Spline-Funktion gebrauchten Mo¬ 
mente berechnet und in »m« abgelegt. Mittels 
»Funktionswert« wird der benötigte Wert 
durch den Punkt (in dO) berechnet. Mit Hilfe 
von »Koordinatensystem« wird das Achsen¬ 
kreuz abgebildet. 

Zum Schluß wollen wir noch einige Vortei¬ 
le der Spline-Interpolation gegenüber der In¬ 
terpolation mit einer einzigen Polynomfunkti¬ 
on vom Grad N aufgreifen: 

- die Splineberechnung erfolgt schneller, da 
weniger Unbekannte vorhanden sind 

-die Splines wirken glätter, da sie geringe Fel- 
ligkeit haben und geben daher den Verlauf ei¬ 
ner Funktion besser wieder 

Die Gesamtkrümmung der interpolierenden 
Kurve wird minimal - eine Eigenschaft, die ein 
durch die Knoten gelegtes elastisches Lineal 
ebenfalls annähernd realisiert. Damit haben wir 
ein mechanisches Modell für die Spline-Inter¬ 
polation. ■ 


Faszination Programmieren Nr.2 


35 




F P 


TIPS & TRICKS 


Buntgemischtes für Programmierer 

Tips & Tricks und tolle Tools 

Die Rubrik Tips & Tricks ist eine der beliebtesten des AMIGA-Magazins. und 
auch im Sonderheft »Faszination Programmieren« darf sie natürlich nicht feh¬ 
len. Auf den folgenden Seiten Sie alle erdenklichen Hilfen und Kniffe, wie Sie 
besser und schneller mit dem Amiga umgehen, und wie Sie - speziell bei der 
Programmierung - die eine oder andere Hürde umschiffen. 


W as sind überhaupt »Tools«? Wörtlich 
übersetzt heißt das »Werkzeuge«. 
Gemeint sind all die kleinen - oder 
manchmal auch größeren - Programme, mit 
denen Sie z.B. Texte konvertieren, Festplatten 
aufräumen, nach Dateien suchen etc. Also all 
die kleinen Helfer, die Ihnen die Arbeit mit dem 
Amiga erleichtern. 

Auf den folgenden Seiten finden Sie eine 
Menge solcher Tools und viele kleine Tips & 
Tricks als Hilfe für Ihr Programmiererleben. 

Wir fangen an mit buntgemischten Kniffen 
rund um den Amiga. Ab Seite 41 finden Sie im 
Rahmen unserer Knobelecke Tricks, wie Sie 
Programme schneller machen und wie Sie über¬ 
haupt an Programmieraufgaben herangehen, 
und von Seite 51 bis 60 geben dann die Tools 
den Ton an. Schauen Sie sich um. es sollte auch 
für Sie etwas dabei sein. 

Wenn Sie selbst ein paar Helferlein pro¬ 
grammiert haben - oder den einen oder ande¬ 
ren Trick für den Amiga ausbaldowert haben, 
schicken Sie Ihren Beitrag an die Redaktion 
»Faszination Programmieren«, d.h. an: 

AMIGA-Redaktion 
»Faszination Programmieren« 

Markt & Technik Verlag 
Hans-Pinsel-Str. 2 
85540 Haar bei München 

ln den nächsten Sonderheften werden wir die 
besten Einsendungen veröffentlichen, Wieder 
bunt gemischt, so daß für jeden etwas dabei ist. 
Die nächste Ausgabe von »Faszination Pro¬ 
grammieren« ist für Anfang 1994 geplant. 

Für alle veröffentlichten Beiträge gibt's ein 
Honorar. Falls der Platz für den Abdruck aller 
ausgewählten Beiträge nicht reicht, drucken wir 
evtl, ein paar Einsendungen im AMIGA-Ma- 
gazin ab. Also: Es lohnt sich mitzumachen. 

Und dann noch eine Bitte und ein Dank: 
Dank allen Programmierer, die sich an den Tips 
& Tricks beteiligt haben. Und die Bitte um Ge¬ 
duld. wenn ihr Beitrag nicht veröffentlicht wur¬ 
de. Im nächsten Sonderheft sollte es klappen. 

Und noch eine Bitte: Wir haben so viele 
Tips, die wir am liebsten alle drucken würden, 
aber was für Tips bevorzugen Sie? Kurze, klei¬ 
ne? Oder ausführliche? BASIC- oder C-, 
ARexx oder Assembler-Tips? Schreiben Sie 
uns. damit wir Ihr nächstes »Faszination Pro¬ 
grammieren« noch besser machen können. 


Kleine Pause mit 
DELAY 

Mit dem DOS-Befehl WAIT kann man Se¬ 
kunden oder Minuten warten. Wenn es aber 
genauer sein soll, benutzt man DELAY (ab OS 
2.0). Als Parameter gibt man die Wartedauer in 
50stel Sekunden als Dezimalzahl an. 

Verwendungszweck ist z.B. eine Batch-Da¬ 
tei in der Programme mit dem Befehl RUN ge¬ 
startet werden. Nach RUN wartet man (die Zeit 
muß man abschätzen), um dem »Laufwerks- 
gesäge« ein Ende zu bereiten. DELAY ist resi¬ 
dentfähig. Thies Wellpott 

Fenster löschen... 

Es gibt mehrere Wege, den Inhalt eines CLI 
Fensters zu löschen. Eine davon funktioniert 
über den Befehl ECHO: Man schreibt z.B. in 
der »Startup-Sequence« folgende Zeile: 
echo <Ctrl L> 

Beim »L« sollten jetzt die Vorder- und Hin¬ 
tergrundfarben vertauscht sein. 


Wer viel mit Programmen wie MandelBlitz 
oder MAK zur Berechnung von Mandelbrot¬ 
grafiken etc. mit der HiRes-Interlaced Auflö¬ 
sung arbeitet, sollte den Workbenchscreen 
nach vorne holen. Das mit der Tastaturkombi¬ 
nation <Amiga_links M> machbar. Das ergibt 
teilweise Geschwindigkeitssteigerungen um 
bis zu 150 Prozent. 

Die ganze Sache kann man zusätzlich be¬ 
schleunigen. indem man die Anzahl der Bit¬ 
planes auf I stellt (z.B. mit WB_Planes). Da¬ 
durch gewinnt man nochmals ca. 5% Zeit. Die 


Auch vom CLI kann man <Ctrl L> anwen¬ 
den. aber dafür erscheint das häßliche »...Un- 
known command«. Thomas Binggeli 

IsResident 

Möchte man in einer Batch-Datei abfragen, 
ob ein Programm resident ist, schreibt man ab 
jetzt - d.h. ab OS 2.0. - nur noch: 

IsResident Name 

Ist »Name« nicht resident wird WARN (=5) 
als Rückkehrcode gesetzt, sonst 0. IsResident 
ist residentfähig, Thies Wellpott 

I FastFileSy stem für 
Disketten 

Unter Kickstart/Workbench 2.0 wird jetzt 
auch das FastFileSystem für Disketten voll un¬ 
terstützt. Eine entsprechende Diskette wird au¬ 
tomatisch als solche erkannt (Das SHELL- 
Kommando INFO zeigt dann 879 und nicht nur 
837 KByte an). Dazu muß beim Formatieren 
nur die Options FFS mit angegeben werden. 


angegebenen Werte wurden in diesem Fall auf 
einem normalen Amiga 2000 (1 MByte Chip- 
RAM) gemessen. 

Wenn Ihr Rechner über FastRAM verfügt, 
fällt der Geschwindigkeitsgewinn etwas gerin¬ 
ger aus. 

Die erwähnten Programme befinden sich auf 
denen im folgenden genannten Public-Do- 
main-Disketten Thomas Binggeli 

Quellennachweis: 

- MandclBlilz 1.0 Fish Disk 378 

- MAK Fish Disk 522 

- WB .Planes Fish Disk 543 


Geschwindigkeitsvergleich j 

Screen Res. v. WB. 

Aktueller Screen 

Zeit für Standard Mandelbrot 

Hires (640x512) 

Hi res (640x512) 

Hires (640x512) 

MandelBlitz 640x512 

WB 1 640x256 

WB 2 640x256 

ca 13 min 05 sek 
ca 5 min 30 sek 
ca 5 min 13 sek 

•" WB 1 = WB Screen mit 1 Plane : WB 2 = WB Screen mit 2 Planes 


Programme laufen wie der Blitz 
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Beim Formatieren von der Workbench aus 
wird einem diese Wahl leider nicht gelassen. 
Auf den Diskdoctor sollte man aber besser ver¬ 
zichten. er zerstört die Diskette. 

Vorteile des FFS: 

Neben den etwas 40 KByte mehr Speicher 
für Ihre Listings und Programme wird der Zu¬ 
griff auf Disketten auch etwas beschleunigt. 

Nachteile: 

Die Sache hat nur einen Haken: Amiga-Be- 
sit/.er. die (noch) nicht Kickstart/Workbench 
2.0 besitzen, dürften leichte Probleme haben, 
diese Disketten zu lesen, d.h. sie können Ihre 
in der beschriebenen Art präparierten Disket¬ 
ten nicht an Besitzer älterer Amiga-Modelle 
weitergeben. Rüdiger Dreier 

FFS: FORMAT und 
INSTALL (ab OS 2.0) 

Formatiert man eine Diskette von der Work¬ 
bench aus. oder ohne Optionen aus der Shell, 
bekommt die Diskette das Format des norma¬ 
len File-Systems (OFS). 

Um nicht jedesmal in der Shell beim FOR- 
MAT-Bcfehl für das Fast-File-System ewig 
lange Optionen angeben zu müssen, gibt's ei¬ 
nen Trick. Die »Shell-Startup« im Verzeichnis 
»S:« muß nur um folgende Zeilen ergänzt wer¬ 
ten: 

alias fformat "FORMAT DRIVE [] NAME 

EmptyFFS FFS NOICONS" 
alias ffinstall "INSTALL DRIVE [] FFS" 

Nun wird eine Diskette mit dem Befehl 
FFORMAT <laufwerk> 

im Fast-File-Format mit Namen »EmptyFFS« 
formatiert (durch die Option NOICONS wird 
der Mülleimer nicht mitkopiert). Der Befehl 
FFINSTALL <laufwerk> 

dient dazu, die Diskette mit dem Fast-File-Sy- 
stem Bootblock zu beschreiben. 

Oberbuchner Christian 

Preferences bei Midf^\ 
Software 

Sollten Probleme bei der Benutzung von Mi¬ 
di-Software auftreten, indem bei der Daten¬ 
übertragung zwischen Amiga und Midi-Key¬ 
board u.a. die Maus-Geschwindigkeit stark 
zurückgeht und ein weiteres Arbeiten unmög¬ 
lich wird, so könnte das an einer falschen Pre¬ 
ferences-Einstellung liegen. 

Die Übertragung von Midi-Daten erfolgt 
nämlich in einer Baudrate von 31 250. In den 
Preferences ist dagegen ein weit niedrigerer 
Wert voreingestellt, der für den Betrieb z.B. mit 
einem Modem ausgelegt ist. Versucht das 
Midi-Programm nun. Daten mit 31 250 Baud 
zu übertragen, können diese nicht mit der nöti¬ 
gen Geschwindigkeit tranferiert werden und es 
kommt zur geschilderten Erscheinung. Abhil¬ 
fe schafft hier das Setzen der Baudrate auf 31 
250 im Preferences-Teil »Serial«. 

Christof Briiliann 
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Debuggen von 
Befehlsdateien 

Fehler in Befehlsdateien, auch Skript- oder 
Batch-Dateien genannt, sind schwer zu lokali¬ 
sieren. da zur Fehlermeldung keine Zeilen¬ 
nummer ausgegeben wird. Bei Befehlsdateien, 
die selbst wieder Befehlsdateien erzeugen und 
ausführen (z.B. SPat). sind Fehler noch schwe¬ 
rer zu finden, da man nicht erfährt, in welcher 
Datei der Fehler auftrat. Besitzer der Work¬ 
bench 2.0 können dem abhelfen, indem sie 
Set Echo On 

eingeben, bevor sie die fehlerhafte Befehlsda¬ 
tei ausführen. Dadurch wird jeder CU-Befehl 
vor der Ausführung ausgegeben. So kann man 
überprüfen, wo ein Fehler auftrat, und welcher 
Befehl welche Ausgabe erzeugt. Achtung: Vor 
der Ausgabe werden Befehlszeilen expandiert, 
d.h.. Variablen und Parameter (wie $xyz und 
<Dir>) werden durch ihre Inhalte ersetzt. Auch 
der Escape-Character * wird expandiert. 

Um die Ausgabe der Befehle wieder abzu¬ 
stellen. geben Sie »Unset Echo« oder »Set 
Echo Off« oder »Set Echo GrmblLFtx« ein. 

Torsten Techmann 

Noch ein Suchpfad 
gefällig? 

Ein zusätzlicher Suchpfad kann im CL1 oder 
der Shell mit 
path xy add 

eingebunden werden. Dies kann man natürlich 
bei jedem neuen Shell-Fenster eingeben, aber 
es gibt auch andere Möglichkeiten: 

Beim Öffnen eines neuen Shell-Fensters 
wird (meist) die Datei »S:Shell-Startup« aus¬ 
geführt. Somit hat man den neuen Pfad in je¬ 
dem so geöffneten Fenster zur Verfügung. 

Nachteil: Einige Consolenfenster werden 
geöffnet, ohne daß »S:Shell-Startup« ausge¬ 
führt wird. Das ist z.B. der Fall, wenn man 
beim SAS-C Compiler V5.I0 den Befehl 
LMK von der Workbench aus mit einem Dop¬ 
pelklick startet. Die in »S:Shell-Startup« an¬ 
gegebenen Pfade sind hier meist nicht vorhan¬ 
den. Das ist gravierend, da der C-Compiler im 
Pfad gesucht wird, normalerweise befindet er 
sich aber im Verzeichnis LC und nicht in C:. 

Abhilfe: In der Datei »S:Startup-Sequence« 
kann man bereits Pfade angeben. Sie müssen 
nur vor LOADWB stehen. Am besten bringt 
man Ergänzungen zur »Startup-Sequence« in 
»S:User-Startup« unter, die Datei wird beim 
Aufruf von LOADWB automatisch ausgeführt. 
Damit sind die Pfade in allen Consolenfenstern 
vorhanden, auch wenn »S:Shell-Startup« nicht 
ausgeführt wird. Rüdiger Dreier 

PAL muß her 

Sicher kennen Sie das: Von Zeit zu Zeit star¬ 
tet der AMIGA nicht im PAL-, sondern im 
NTSC-Modus. Als Folge hiervon fehlen die 
unteren 56 Bildschirmzeilen und manche Pro¬ 
gramme versagen sogar ihren Dienst. Was tun? 


Nochmals booten und wertvolle Zeit vergehen 
lassen oder den dezimierten Screen einfach er¬ 
dulden? 

Es geht auch anders: Mit dem Programm 
»PN_switch« von Disk A des »NewsFlash«- 
Diskettenmagazins Ausgabe 21 ist es möglich, 
nach dem Booten noch in den PAL-Modus um¬ 
zuschalten. Das Programm befindet sich im 
»Prog«-Verzeichnis. Beim Aufruf im CU gibt 
man als Parameter einfach »PAL« an. Das 
funktioniert allerdings nur, wenn der Compu¬ 
ter mit einem der neueren AGNUS-Chips 
(8732 A ff.) ausgerüstet ist. Sean Durkin 

Disketten aufräumen 

Kennen Sie den Tip. um auf Disketten auf¬ 
zuräumen und alle Dateien, die evtl, fragmen¬ 
tiert auf einer Diskette vorliegen, wieder zu¬ 
sammenhängend zu speichern, um wieder 
schnelleren Diskettenzugriff zu bekommen? 

Mit zwei Diskettenlaufwerken ist's beson¬ 
derseinfach: Einfach im Cl.l folgenden Befehl 
eingeben. 

copy df0: to dfl: all 

Das kann aber bis zu 20 Minuten dauern und 
die Laufwerke laufen heiß. Wer über 2 MByte 
Speicher verfügt, kann das Ganze in ca. 4 Mi¬ 
nuten über RAD: und RAM: mit einer Batch- 
Datei erledigen. Man kann so sogar auf die 
gleiche Diskette zurückgeschreiben. Oderauch 
auf eine andere, auf jeden Fall braucht man nur 
ein Laufwerk! Nennen Sie die Batch-Datei z.B. 
»DiskFix«. Dann sieht der Aufruf so aus: 
execute DiskFix name 

? "name" = der Name der neuen Diskette 

Beachten Sie. daß in der »Startup-Sequence« 
der folgende Befehl stehen muß, damit das 
Ganze funktioniert: 

setpatch r 

Andernfalls müssen Sic den SETPATCH- 
Befehl zu Fuß eingeben. Hier die Batch-Datei 
zum einfachen Kopieren von Dateien und Auf¬ 
räumen auf einer Diskette: 

.key name 
failat 11 
mount rad: 
delete ram:#? all 

diskeopy dfl: to rad: name "Rambo" 
copy rad: ram: all 

format drive rad: name "RAMBO" noicons 

copy ram: rad: all 

delete rad:t all 

delete ram:#? all 

diskeopy rad: to dfl: name <name> 

ln der Mountlist muß die RAD: dasselbe 
Speichervermögen einer Diskette haben. 

RAD: Device = ramdrive.device 

Unit = 0 
Flags = 0 
Surfaces = 2 
BlocksPerTrack = 11 
Reserved = 2 
Interleave = 0 
LowCyl = 0 ; HighCyl =79 
Buffers = 5 
BufMemType = 1 

# 

Herbert Pittermann 


Faszination Programmieren Nr.2 


37 


F P 

TIPS & TRICKS 








Laufwerke raus 
»RemoveTrackdisk« 

Das Programm »RemoveTrackdisk« ent¬ 
fernt alle im System befindlichen Laufwerke. 
Dadurch steht mehr Speicher zur Verfügung 
und außerdem wird das unangenehme »Lauf¬ 
werksklicken« unterdrückt. Da nach Aufruf des 
Programms die Laufwerke nicht mehr benutzt 
werden können, ist das Utility hauptsächlich für 
Festplattenbesitzer ausgelegt. 


/* RemoveTrackdisk - entfernt alle Laufwerke 
Aufruf mit Aztec V3.6: 

cc RemoveTrackdisk.c +1 
ln RemoveTrackdisk.o -lc32 
RemoveTrackdisk 

*/ 

#include <functions.h> 
struct Task *Task; 
void main() 

{while (Task=FindTask("trackdisk.device")) 

/* Task suchen */ 

RemTask(Task); /* und entfernen */ 

) © 1993 M&T 

»RemoveTrackdisk« bringt alle Dis¬ 
kettenlaufwerke zum Schweigen 


»RemoveTrackdisk« findet mit Hilfe einer 
while-Schleife und dem Befehl 
FindTask("trackdisk.device") 
alle Tasks, welche die Laufwerke verwalten. 
Findet das Programm so einen Task, kann es 
ihn mit der Systemfunktion »RemTaskO« ent¬ 
fernen. Die while-Schleife wird verlassen, 
wenn kein Trackdisk-Task mehr gefunden 
w i rd. Ch ristof Brühann 

C-Programme für 
68000- bis 68030er 

C-Programme, bei denen 4-Byte-Objekte auf 
einer durch vier teilbaren Adresse (4-Byte- 
Grenze) beginnen, laufen auf allen 680x()-Pro- 
zessoren; sie laufen allerdings auf 32-Bit-Ma- 
schinen schneller als Versionen, bei denen die 
Daten nicht auf 4-Byte-Grenzen ausgerichtet 
sind. Der Prozessor braucht im ersten Fall nur 
einen Speicherzugriff. 

C-Compiler bieten eine Option. Code zu er¬ 
zeugen (SAS-C: -1), in dem alle 4-Byte-Objekte 
auch an entsprechenden 4-Byte-Adressen ab¬ 
gelegt sind. Aber Achtung: Wenn Sie die Sy¬ 
stemstrukturen benutzen, laufen einige Pro¬ 
gramme nicht mehr, da der Compiler automa¬ 
tisch innerhalb von Strukturen auch alle Kom¬ 
ponenten auf 4-Byte-Grenzen erwartet, was 
natürlich nicht den Tatsachen entspricht, da das 
Betriebssystem platzsparend organisiert ist. 
Abhilfe schafft folgender kleiner Trick (SAS): 

Binden Sie alle benötigten Includefiles als 
»Precompiled Headers« ein - beim Kompilie¬ 
ren dürfen Sie hier natürlich NICHT die -I Op¬ 
tion angeben. Beim Übersetzen des eigentli¬ 
chen Programms lassen Sie in der Komman¬ 
dozeile ERST mit -H die vorkompilierte Datei 
einiesen und geben danach -1 an. 


Beim SAS-C hat die Reihenfolge der Para¬ 
meter (besonder vor/hinter -H) eine Bedeutung: 
So fertigt »-d3 -H..« auch Debug-Informatio- 
nen für Daten in der Datei »..« an, während 
»-H.. -d3« nur Daten für die im Programm ein¬ 
gelesenen Includes liefen. Die angegebene Rei¬ 
henfolge interpretiert also alle Systemstruktu¬ 
ren normal, während alle neuen Programmda¬ 
ten sauber auf 4-Byte-Grenzen gelegt werden. 

Bei der Kombination von -w (16 Bit ints) 
und -1 sollte man vorsichtig sein. Funktionen, 
die z.B. SHORT-Variablen gemischt mit an¬ 
deren Variablen übergeben bekommen, er¬ 
zeugen (V5.10) falschen Code, (siehe auch 
Schublade »Parameter«) Rüdiger Dreier 

Keyboard-Device 
unter Kickstart V2.0 

Bei Betriebssystemversionen vor Kickstart 
V2.0 enthielt das Keyboard-Dcvice zwar schon 
die Funktion »KBD_READMATRIX«, aller¬ 
dings ist sie erst ab Betriebssystem V2.0 feh¬ 
lerfrei. Die Funktion hat die Aufgabe, den Sta¬ 
tus aller Tasten zu ermitteln. Man kann so den 
Zustand jeder beliebigen Taste bestimmen. 

Das Listing »Keyboard_READMATRIX.c« 
zeigt, wie Sie die Funktion »KBD_READ- 
MATRIX« benutzen. Als Beispiel ermitteln 
wir hier den Zustand der <Caps Lock>-Taste 
und geben das Ergebnis aus. Nach dem bei der 
Device-Programmierung standardmäßigem Er¬ 
stellen des Device-Blocks über »CreatePorU)« 
und »CreateStdIOO« sowie nach Öffnen des 
Device mit »OpenDeviceO« kann man den De¬ 
vice-Block für die spezielle Aufgabe vorberei¬ 


ten. Die Funktion »KBD_READMATRIX«, 
welche im Device-Block unter 
IOStdReq->io„Command 

eingetragen wird, erwartet im Feld »io_Data« 
die Adresse eines Felds, in dem der Zustand der 
Tasten gespeichert werden soll. Die Länge des 
Felds tragen Sie dabei unter »io_Length« ein. 
Anschließend können Sie den Befehl durch 
Aufruf von »DolOO« ausführen. 

Nun ist zu klären, wie die Zustände der Ta¬ 
sten im Feld, das im Listing »array« heißt, ge¬ 
speichert werden? Da zum Angeben des Zu¬ 
stands für jede Taste nur ein Bit benötigt wird, 
können in jedem Byte des Felds jeweils acht 
Zustände gespeichert werden. 

Jedes gesetzte Bit steht für eine gedrückte 
Taste. Dabei ist das erste Byte für die Tasten 
mit den Codes 0 bis 7, das zweite für die Ta- 
sten-Codes 8 bis 15 usw. zuständig. Das zu un¬ 
tersuchende Byte im Feld läßt sich demnach 
mit »array|code/81« angeben. Da dieses Byte 
den Zustand von acht Tasten angibt, ist eine 
AND-Verknüpfung mit dem Rest der Division 
des Tastencodes durch acht notwendig, um an 
den Zustand einer einzelnen Taste zu kommen. 

Zur Vereinfachung haben wir im Listing das 
Makro »KEYSTATUS(code)« definiert, wel¬ 
ches dem Programmierer mitteilt, ob die Taste 
mit dem Code »code« gedrückt ist oder nicht. 
So kann die Abfrage einfach mit 

if (KEYSTATUS(CAPSCODE)==TRUE) ... 

erledigt werden, wobei »CAPSCODE« der 
RAWKEY-Code der <Caps Lock>-Tastc ist. Je 
nach Ergebnis dieser Abfrage wird entweder 
der Text »<Caps Lock> leuchtet« oder »<Caps 
Lock> leuchtet nicht« ausgegeben. 
j-| Christof Brühann 


/* KeyboardREADMATRIX - demonstriert die Keyboard-Device-Funktion READMATRIX 
Aufruf mit Aztec V3.6: cc Keyboard.READMATRIX.c +1 

ln Keyboard.READMATRIX.o -lc32 
Keyboard.READMATRIX 

(Kickstart V2.0 erforderlich) */ 

ttinclude <devices/keyboard.h> 
ftinclude <functions.h> 

idefine M0D8(a) (a-a/8*8) /* Rest von Division durch acht */ 

«define KEYSTATUS(code) ((arrayt(code)/8])&(1<<(M0D8(code))) ? TRUE : FALSE) 

/* ermittelt Zustand einer Taste */ 

#define CAPSCODE 0x62 /* Code von <Caps Lock> */ 

idefine LEN 16 /* Länge des Feldes */ 

UBYTE array[LEN]; 
struct IOStdReq ‘IOStdReq; 
struct MsgPort 'MsgPort; 
void main() 

(if (MsgPort=(struct MsgPort *)CreatePort(0,0)) /* Device-Block erstellen */ 

(if (I0StdReq=(struct IOStdReq *)CreateStdIO(MsgPort)) /* und Keyboard-Device öffnen */ 

(if (!OpenDevice("keyboard.device",0,IOStdReq,0)) 

( /* Device-Block beschreiben:*/ 

IOStdReq->io_Command=KBD._READMATRIX; /* Befehl eintragen */ 

IOStdReq->io_Data=(APTR)iarray; /* Adresse des Felds */ 

IOStdReq->io_Length=LEN; /* Länge des Felds */ 

DoIO(IOStdReq); /* Befehl ausführen (Zustand aller Tasten ermitteln)*/ 

/* dann speziell Zustand von <Caps Lock> prüfen > */ 
if (KEYSTATDS(CAPSCODE)==TRUE) puts("<Caps Lock> leuchtet."); 
eise puts("<Caps Lock> leuchtet nicht."); 

CloseDevice(IOStdReq); /* Device schließen */ 

} 

DeleteStdIO(IOStdReq); /* Device-Block sowie Message-Port löschen */ 

) 

DeletePort(MsgPort); 

)} © 1993 M&T 

»Keyboard_READMATRIX.c: Das Listing demonstriert, wie Sie jede Taste 
der Tastatur über das das Keyboard-Device kontrollieren 
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Standardfunktionen 

selbstgestrickt 

Hier etwas für Tüftler, die ihre Programme 
gerne optimieren und daran herumfeilen: Sie 
können einige der Stringfunktionen der »c.lib« 
kinderleicht selbst implementieren. 

□ Ein Beispiel für eine Funktion zum Ver¬ 
gleichen von Strings: 

void strcmpfsl,s2) 
char *sl, *s2; 

{ while(*sl++ = *s2++) 

} 

Eine Version von »stremp«, bei der als 
Quell-String s2 und als Ziel s2 dient. 

□ Als nächstes eine Routine, um die Länge ei¬ 
nes Strings zu ermitteln: 

long strlen(s) 
char *s; 

{ long len=0; 

while(*s++) len++; 

} 

Die Funktion ist auch ziemlich leicht zu 
durchschauen. In ähnlicher Weise wie die bei¬ 
den Funktionen lassen sich natürlich auch an¬ 
dere Stringbearbeitungsfunktionen selbst im¬ 
plementieren. Viel Spaß beim Experimentie¬ 
ren! Chriastian Obergeschwandner 

Hardwaremäßige 
Joystick-Abfrage 

Beim Amiga erfolgt die Abfrage von am 
Game-Port angeschlossenen Joysticks norma¬ 
lerweise über Devices, die eine multitasking¬ 
gerechte Ein- und Ausgabe ermöglichen. Doch 
bei manchen Programmen, z.B. Spielen, wird 
eine hohe Verarbeitungsgeschwindigkeit 
benötigt, die durch eine Device-Programmie¬ 
rung besonders bei der Joystick-Abfrage nicht 
immer gegeben ist. Soll außerden das Multi¬ 


tasking aus Geschwindigkeitsvorteilen sowie¬ 
so ausgeschaltet werden, ist die hard¬ 
waremäßige Abfragung der Game-Ports nicht 
mehr zu vermeiden. 

Das nächste Listing, »GetJoyData.C«, zeigt, 
wie man direkt über die Hardware-Register ei¬ 
nen am Port I angeschlossenen Joystick ab¬ 
fragt. Sobald Sie das Programm starten, gibt 
der Amiga bei jeder Joystickbewegung die 
Richtung aus. Der Druck auf den Feuerknopf 
beendet das Programm. 


/* GetJoyData.C 

hardwaremäßige Joystick-Abfrage in C 
Aufruf mit Aztec V3.6: 
cc GetJoyData.C +1 
ln GetJoyData.o -lc32 
GetJoyData 

*/ 

finclude <\<>hardware/custom.h> 
tinclude <\<>hardware/cia.h> 

void main() 

{puts ("Joystick in Port 1 !"); 
do /* Hardware-Register abfragen, 
bis Knopf gedrückt wird *1 

(if (custom.joyldat&2) puts("rechts"); 
if (custom.joyldat&512) puts("links"); 

if (((custom.joyldat&l)==1)*((custom. 
joyldat&2)==2)) puts("unten"); 

if (((custom.joyldat&256)==256) A ((custom. 
joyldat&512)==512)) puts("oben"); 

} while (ciaa.ciapra&CIAF GAMEPORTI); 

} © 1993 M&T 

»GetJoyData.C.«: Joystickabfrage in 
C über die Hardware 


Zwecks besserer Lesbarkeit des Quell-Codes 
haben wir Makro-Definitionen aus den Header- 
Dateien »custom.h« sowie »cia.h« benutzt. 

Möchten Sie nicht Port I. sondern Port 0 ab¬ 
fragen, ersetzen Sie »joyldat« durch »joyOdat« 
sowie »CIAF_GAMEPORTl« durch 
»CIAF_GAMEPORTO«. Christof Brühann 


AMOS und Speicher 

Viele AMOS-User werden sich schon ge¬ 
fragt haben, wie sie den verfügbaren Spei¬ 
cherplatz abfragen? Da gibt's zwar den Befehl 
FREE, aber der zeigt nur den freien Speicher 
für Variablen. Das nachstehende AMOS-Pro- 
gramm demonstriert, wie man Chip- und Fast- 
RAM abfragt. Reik Winkelmann/Faulenrost 

Paper 0 : Cls 

Print "Chip: ";Chip Free;" Byte" 

Print "Fast: ";Fast Free;" Byte" 

Print "Chip+Fast : ";Chip Free+Fast Free; 

" Byte" 

STR und Zahlen 

Mit dem BASIC-Befehl x$=STR$(x) wird 
der numerische Wert von x als eine Zeichen¬ 
kette nach x$ übergeben. Auch das Vorzeichen. 
Was bei einer positiven Zahl zu einen Leer¬ 
stelle führt. Will man mehrere Zeichenketten 
miteinander verknüpfen. z.B. 

PRINT x$+y$+z$ 

könnte das Ergebnis so aussehen 
12 47 0 58 6 222 1 

Manchmal sind die Leerzeichen uner¬ 
wünscht. Folgende Zeile hilft: 
x$=RIGHT$(STR$(x),LEN(STR$(x))-1) 

Herbert Pittermann 

Was gibt's für 
GrafikModi? 

Das unten abgedruckte, kurze C-Programm 
»Grafik_Modus.c« gibt unter Kickstart 2.0 die 
DisplaylD’s und Namen der Grafikmodi aus. 
Eine Ausgabe erfolgt allerdings nur. wenn in 
der Datei »Mode_Names« ein Name für die 
entsprechende ID eingetragen ist (diese Datei 
wird für »BindMonitor« benötigt). Zusätzlich 
gibt »Grafik_Modus.c« aus, ob der Modus auf 
dem Rechner verfügbar ist (0 = verfügbar). 
r~| Rüdiger Dreier 


/* Kompilieren mit -b -v -r -0 -Lv */ 

i = GetDisplaylnfoDatalO,(UBYTE *)&DI, 

(tinclude <exec/types.h> 

sizeof(DI), 

tinclude <graphics/displayinfo.h> 

DTAG DISP, 

tinclude <proto/exec.h> 

ID); 

tinclude <proto/graphics.h> 

if (i) 

tinclude <proto/dos.h> 

( /* Nur wenn vorherige Anforderung geklappt hat... */ 

i = GetDisplaylnfoDatalO, /* Namensdaten übertragen */ 

struct GfxBase *GfxBase; 

(UBYTE *)&NI, 

struct Nameinfo NI; 

sizeof(NI), 

struct Displayinfo DI; 

DTAG NAME, 

ULONG ID,nextID; 

ID); 

/* Gibt es für diesen Modus einen Namen? Dann ausgeben */ 

/* Dieses Programm zeigt die verfügbaren Grafikmodi mit */ 

if(i) printf("%81d %t81x >%30s< %hd\n", 

/* Namen an. Es wird ein Name ausgegeben, wenn in */ 

ID, 

/* Mode_Names ein Name für die ID vorhanden ist. */ 

ID, 

NI.Name, 

main() 

DI.NotAvailable); 

(LONG i; 

} 

/* Die Library öffnen */ 

ID = nextID; /* Zur nächsten ID gehen */ 

GfxBase = OpenLibrary("graphics.library\37); 

) 

if(!GfxBase) return; 

while(nextID != INVALID ID); 

printf(" ID_Dez IDJtex Name Verfügbar\n") ; 

CloseLibrary(GfxBase) ; 

do 

Delay(250) ; /* Um beim Start von Workbench was zu sehen */ 

{nextID = NextDisplaylnfo(ID); /* nächste ID holen •/ 

} © 1993 M&T 

1* Information über die Verfügbarkeit des */ 

»Grafik_Modus.c«: Die Zahl der Grafikmodi der neuen 

/* Darstellungsmodus besorgen */ 

Amigas ist groll; hiermit behalten Sie den Überblick 
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Menüs: Alles Einstel¬ 
lungssache 

Bei vielen Programmen ist es möglich, be¬ 
stimmte Einstellungen im Menü vorzunehmen. 
Die angewählten Menüpunkte werden dann mit 
dem bekannten Amiga-Haken gekennzeichnet. 
Hat man viele dieser Optionen anzuwählen, 
wird die Arbeit bald lästig: rechte Maustaste 
drücken, in die Titelleiste fahren, Meniipunkt 
anwählen. Maustaste loslassen, Maustaste wie¬ 
der drücken, wieder in die Titelleiste fahren,... 

Letzteres kann man sich etwas erleichtern: 
rechte Maustaste drücken, in die Titelleiste fah¬ 
ren und, während die rechte Maustaste ge¬ 
drückt bleibt, die entsprechenden Menüpunk¬ 
te mit der linken Maustaste anwählen. Das er¬ 
spart viel Arbeit, vor allem, wenn sich mehre¬ 
re Optionen im selben Menü befinden. 

Scan Durkin 

Laufwerksimulation 

Manchmal sprechen Programme bestimmte 
Laufwerke direkt an. um z.B. Voreinstellungen 
zu lesen. Ist aber das betreffende Laufwerk 
nicht vorhanden, läuft das Program nicht. Ab¬ 
hilfe schafft »DevRen« von der Fish- Disk 378. 
Mit dem Programm ist es z.B. möglich, das ex¬ 
terne Laufwerk »DF2:« beim Amiga 2000 in 
»DFL« umzubenennen, was manchmal sehr 
nützlich sein kann. Scan Durkin 

Guter Start mit 
MEmacs 

Wer viel mit dem Texteditor »MicroEmacs« 
von der Extras-Diskette arbeitet, kennt sicher 
das Problem: Man hat sich z.B. die Funkti¬ 
onstasten mit oft benötigten Floskeln belegt, 
muß sie aber bei jedem Programmstart wieder 
neu eingeben. Das ist zeit- und nervenintensiv. 

Es gibt jetzt (ab OS2.0) die Möglichkeit, die¬ 
se Voreinstellungen in einer Datei namens 
»s:Emacs_pro« zu speichern. Nach dieser Da¬ 
tei sucht MEmacs bei jedem Programmstart. 
Man gibt dies folgendermaßen ein: Einfach den 
Befehl so hinschreiben, wie er im Menü von 
MEmacs steht. z.B.: 

Read-file "Dateil.txt" 

Set mode wrap 

Set-Key Fl "AMIGA-Magazin" 

Die Datei macht folgendes: Zuerst wird das 
File »Datei 1 .txt« geladen, danach wird der Mo¬ 
dus auf Wordwrap gestellt und die <FI>-Taste 
mit dem String »AMIGA-Magazin« belegt, 
d.h.. jedesmal, wenn man <FI> drückt, wird 
der Text »AMIGA-Magazin« geschrieben. 
Diese »Emacs_pro«-Datei muß im logischen 
Verzeichnis »s:« stehen. Ulrich Priesner 

Zeitfragen 

Bekanntlich wird mit dem CLi-Kommando 
setclock opt load 

die Uhr gestellt. Wer einmal aufpaßt, wird be¬ 
merken. daß die Uhr nach einer gewissen Zeit 


falsch geht. Ein erneutes 
setclock opt load 
schafft Abhilfe. 

Eine kleine Batch-Datei kann alles automa¬ 
tisch für Sie erledigen: 
setclock opt load 
wait 30 min 
execute setuhr 

Speichern Sie das Ganze dann noch unter 
»SetUhr« und rufen Sie es auf mit 
execute setuhr 

Wenn Sie die Befehle resident laden, geht 
das Ganze noch schneller und das Laufwerk 
bleibt ruhig. Unter WB 1.3 kann »opt« weg¬ 
gelassen werden. Herbert Pittermann 

Versionskontrolle 

Haben Sie schon mal versucht, im CL1 mit 
VERSION die Versionsnummer einer Biblio¬ 
thek (Libraries; meist im Ordner »libs:«) her¬ 
auszufinden? Z.B. mit dem Befehl 
Version .library 

Alles schön und gut, aber wenn man ver¬ 
sucht. ein Laufwerk oder eine Diskette anzu¬ 
sprechen, wird immer nur die Version der 
Startdiskette angezeigt. 

Hier hilft der TYPE-Befehl mit z.B. 
type d£l:libs/arp.library opt h 

Der Befehl gibt den Inhalt der Bibliothek in 
hexadezimaler Schreibweise aus. Wenn ca. die 
ersten 20 Zeilen aufgelistet sind, können Sie 
das Ganze mit einer beliebigen Taste unter¬ 
brechen. Am besten mit <Space> (Leertaste). 
In der rechten Spalte können Sie dann die Ver¬ 
sionsnummer und das Datum herauslesen. 

Dafür ist die Shell hervorragend geeignet, 
weil mit <Curser_hoch>-Taste der letzte Befehl 
zurückgeholt wird. So kann man eine Disket¬ 
te nach der anderen einlegen und die neueste 
Version einer Library erforschen. TYPE kann 
mit <Ctrl c> abgebrochen werden. 

Die ersten paar Zeilen der »arp.library« bei¬ 
spielsweise so aus 

0000: 000003F3 00000000 00000003 00000000 . 

0010: 00000002 00001091 00000000 00000001 . 

0020: 000003E9 00001091 70274E75 4AFCOOOO . p'tluJ... 

0030: 00040000 001E8027 09000000 004DOCOO .'.M.. 

0040: OOSAOOOO OOCOOOOO 12415250 20536965 .1 .AR? Sne 

0050: 6C6C2050 72SF6365 73730000 00000000 li Process. 

0060: 12415250 20426163 6B67726F 756E6420 .APF Background 
0070: 5368656C 6C617270 2E6C6962 72617279 Shellarp.liDrary 
0080: 00004172 704C6962 2033392E 31202863 ..AipLil> 39.1 Ic 
0090: 64682F73 64622034 2F392F38 39290A00 dh/sdb 4/9/89).. 
OOAO: 646P32E 6C696272 61727900 696E7475 dos.library.intu 
00B0: 6974696F 6E2E6C69 62726172 79006772 ition.library.gr 
0ÖC0: 61706869 63732E6C 69627261 72790065 aphics.library.e 
Herbert Pittermann 

Parameter in Batch- 
Dateien: 

Durch Batch-Dateien ist es möglich, daß 
durch die Eingabe eines einzigen Kommandos 
gleich mehrere Befehle ausgeführt werden. 
Wenn z.B. vor dem Start eines Programms 
zunächst noch ASSIGN-Anweisungen ausge¬ 
führt werden müssen, können diese zusammen 


mit dem Programmaufruf in eine Batch-Datei 
geschreiben werden, so daß zum Start nur noch 
die Batch-Datei aufgerufen werden muß. 

Oft kommt es auch vor. daß Parameter über¬ 
geben werden müssen. Soll z.B. mit einer 
Batch-Datei ein beliebiger Quellcode kompi¬ 
liert und anschließend daß Programm noch auf¬ 
gerufen werden, so ist eine Batch-Datei mit Pa¬ 
rameterübergabe notwendig. Bei diesem Bei¬ 
spiel könnte die Batch-Datei für den C-Com- 
piler Dice folgendermaßen aussehen: 

.KEY name 

dcc <name>.c -o <name> 

<name> 

Mittels 
.KEY name" 

wird zunächst »name« als Parameter definiert. 
Es wird nun im weiteren Verlauf der Batch-Da¬ 
tei <name> jeweils durch den übergebenen Pa¬ 
rameter ersetzt. Angenommen, die Batch-Da¬ 
tei heißt »MakeDice«, würde durch »Make- 
Dice test« folgende Befehlssequenz ausgeführt 
werden: 

dcc test.c -o test 
test 

Christof Brühann 

Suchpattern wie unter 
DOS: * und #? 

AmigaDOS hat unbestritten Vorteile ge¬ 
genüber MS-DOS. Aber einiges ist unter MS- 
DOS sicher eleganter gelöst, was man aber 
beim Amiga nicht missen muß: 

Es geht um die sog. Suchpattern: Platzhalter 
für Zeichen in Zeichenkette, die nicht genau 
definiert sind oder unbekannt. z.B. wenn man 
nach Dateien suchen möchte. Bei AmigaDOS 
ist dies standardmäßig die Zeichenkombinati¬ 
on »#?«, bei MS-DOS ein simpler »*«. Wenn 
man viel mit beiden Systemen arbeitet, ist das 
doch sehr verwirrend. 

Das muß nicht sein: Unter AmigaDOS 2.04 
kann relativ einfach auf das alternative Such¬ 
pattern - das Zeichen »*« - umgeschaltet wer¬ 
den. In der »DosLibrary«-Struktur gibt es den 
Eintrag dl_Root, in dem w iederum der Eintrag 
rn_Flags enthalten ist. Bit 24 (definiert als 
RNB_WILDSTAR) entscheidet über das Such¬ 
pattern. Ist das Bit gesetzt, wird der * als Pat¬ 
tern verwendet, bei gelöschtem Bit das Stan¬ 
dardpattern »#?«. Das Ganze funktioniert wie 
erwähnt erst ab Kickstart 2.04. ab 

Ein kurzer Tip zum 
Schluß 

Sie arbeiten doch bestimmt oft mit der Shell 
oder mit dem CLI und möchten zur Beendi¬ 
gung nicht jedesmal »ENDSHELL« oder 
»ENDCLI« eingeben. 

Ab OS2.0 (Operating System <=> Kickstart 
2.0) gibt es die Möglichkeit, mit der Tasten¬ 
kombination <Ctrl \> (d.h. Sie müssen die Con¬ 
trol- und die Backslash-Taste gleichzeitgig 
drücken) die aktuelle Shell oder das CLI zu 
verlassen. ub 
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Rätselknacker in Oberon 


Der ZahlenGuru 

Wie löst man die beliebten Symbolrcitsel aus Illustrierten , Rätselheften etc. ? Hier 
ein Lösung in der Programmiersprache Oberon - einer Sprache , die sich ge¬ 
rade auf dem Amiga w achsender Beliebtheit ei freut. 


Raten 

und Rechnen 

BBIZ : 

C50 = 

mm 

+ 


+ 

[50 «- 

mH = 

00 


amu = 


0E3U - 

00H 


Knifflig: Welches Symbol entspricht welcher Ziffer? Und wie löst man solche Rät¬ 
sel, wie sie in Illustrierten etc. zu finden sind, mit dem Computer? 


von Niels Knoop 


Z ahlenGuru ist ein Programm zum Lösen 
von Symbolrätseln, in denen neun ver¬ 
schlüsselte Zahlen im Quadrat zu sechs 
Gleichungen angeordnet sind. Aufgabe ist es, 
jedem der maximal zehn Symbole eine Ziffer 
eindeutig zuzuordnen, so daß die resultierenden 
Zahlen alle sechs Gleichungen erfüllen. Das 
folgende Bild zeigt ein Beispiel. 


Aufgabe Resultat 


abc / 

bd = 

cc 

924 / 

21 = 44 

+ 

* 

+ 

+ 

* + 

be + 

cf = 

ee 

26 + 

40 = 66 

agf - 

hcf = 

ddf 

950 - 

840 = 110 


Lösung: 

abcdefgh 
9 2 4 1 6 0 5 8 


Je nach Symbolzahl gibt es maximal 10! = 
3 628 800 Kombinationen, von denen norma¬ 
lerweise nur eine das Gleichungssystem löst. 
Es gibt aber auch Rätsel, die mehrere Lösun¬ 
gen haben, welche das Programm dann 
alle finden sollte. 

Bedienung: 

Das Programm wird am besten vom CLI ge¬ 
startet. wobei eine Umlenkung der Ein- und 
Ausgabekanäle wie gewohnt möglich ist. z.B. 
mit folgendem Kommando: 

ZahlenGuru <BeispielRaetsel >RAM:Protokoll. 

ZahlenGuru fragt nach dem Start hinterein¬ 
ander zunächst die (verschlüsselten) Zahlen 
und dann die Operatoren ab. Deren Reihenfol¬ 
ge ist folgende: 

Zahll Opi Zahl2 = Zahl3 
0p4 Op 5 0p6 

Zahl4 0p2 Zahl5 = Zahl6 


Zahl7 0p3 Zahl8 = Zahl9 
Als Symbole dürfen beliebige ASClI-Zei- 
chen verwendet werden mit Ausnahme des 


Leerzeichens, das für einleitende Leerstellen 
gedacht ist und dem deshalb immer die Ziffer 
»0« zugeordnet wird. Führende Leerstellen 
können, müssen aber nicht mit eingegeben wer¬ 
den. da das Programm die eingegebenen Zah¬ 
len automatisch rechtsbündig formatiert. 

Jede Zahl darf maximal vier Zeichen lang 
sein, und da jede Ziffer nur einem Symbol zu¬ 
geordnet werden kann, dürfen insgesamt nicht 
mehr als zehn Symbole Vorkommen. Als Ope¬ 
ratoren werden die Grundrechenarten, symbo¬ 
lisiert durch die Zeichen »+«, »-«, »*« und »/«. 
akzeptiert. 

Über 3 Millionen 
Kombinationen 

Fehleingaben aller Art werden vom Pro¬ 
gramm gnadenlos ignoriert und nur dadurch 
kundgetan, daß das Programm keine Lösungen 
findet. Unsinnige Lösungen sind in einem sol¬ 
chen Fall theoretisch möglich, aber äußerst un¬ 
wahrscheinlich. Wenn also ein Rätsel mal un- 
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lösbar erscheint, sollte man immer zuerst prü¬ 
fen, ob man es richtig eingegeben hat. 

Arbeitsweise: 

Es ist ziemlich einfach, aber auch zeitinten¬ 
siv. die Lösungen eines Rätsels durch simples 
Durchprobieren aller Kombinationen zu finden. 
Die erste, so arbeitende Programmversion des 
Autors brauchte zur Lösung von Rätseln mit 
vollen zehn Symbolen bis zu zwei Stunden, für 
das zu Beginn stehende Beispiel aus dem AMI- 
GA-Magazin immer noch 24 Minuten. (Alle 
Zeitmessungen auf einem Amiga 2000). 

Die Methode mit dem 
Holzhammer 

Es galt nun, dieser Holzhammermethode raf¬ 
finiertere Varianten gegenüberzustellen und 
mit diesen möglichst hohe Beschleunigungs¬ 
faktoren zu erzielen. 

Die erste, grundlegende Idee war. die sechs 
Gleichungen nach der Anzahl ihrer Unbe¬ 
kannten zu sortieren und nacheinander zu lö¬ 
sen. Dabei wird als erste die Gleichung mit den 
wenigsten Unbekannten bearbeitet, indem alle 
möglichen Belegungen ihrer Symbole durch¬ 
probiert werden. Diejenigen Ziffernkombina¬ 


tionen, welche die Gleichung nicht erfüllen, 
scheiden schon hier aus, während die Lösungen 
an die nächste Gleichung weitergereicht wer¬ 
den. Da die mit Ziffern belegten Symbole nun¬ 
mehr als bekannt vorausgesetzt werden dürfen, 
gelten sie in den noch folgenden Gleichungen 
nicht mehr als Unbekannte. 

Als nächste Gleichung wird aus den übrigen 
wieder diejenige mit den wenigsten Unbe¬ 
kannten ausgewählt und gelöst, wobei unter 
Verwendung der Lösungen der letzten Glei¬ 
chung nur die Belegungen für die "neuen" 
Symbole durchprobiert werden müssen. 

Auf diese Weise werden nun Schritt für 
Schritt Teilkombinationen ausgesiebt, bis nach 
Kontrolle der letzten Gleichung nur noch die 
Gesamtlösungen übrig sind. 

Der Vorteil dieser Methode liegt darin, daß 
falsche Teilkombinationen frühzeitig aussor¬ 
tiert werden und somit der Kontrollaufwand in 
späteren Schritten entscheidend verringert 
wird. Je kleiner die Anzahl der Unbekannten in 
den einzelnen Gleichungen ist, desto größer ist 
der Geschwindigkeitszuwachs. 

Bei allen von uns getesteten Rätseln lag der 
tatsächliche Beschleunigungsfaktor zwischen 
70 und 1200, die Rechenzeit zwischen 3 und 96 
Sekunden und für das Beispielrätsel wurden 
noch 3,3 Sekunden benötigt. 


Um das Ganze noch schneller zu bekommen 
und auch besonders ungünstigen Rätseln bei¬ 
zukommen. fügte der Autor noch einen Pro¬ 
grammteil hinzu: das Erweitern der Glei¬ 
chungsmenge. Die Idee ist dabei, aus den be¬ 
stehenden Gleichungen neue einstellige Glei¬ 
chungen herauszuschneiden, die durch ihre ge¬ 
ringe Zahl von Unbekannten die Lösung des 
Rätsels beschleunigen. 

Noch schneller mit 
Trick und... 

Dazu werden zunächst die rechts liegenden 
Stellen jeder der Ursprungsgleichungen in 
neue Gleichungen kopiert. Anschließend wer¬ 
den alle Gleichungen wie bisher sortiert und 
gelöst. Beim Lösen der neuen Gleichungen gilt 
es dann allerdings zu beachten, daß sie mehr¬ 
deutig sind, da ein möglicher Übertrag auf die 
nächste Stelle abgeschnitten wurde. 

In ähnlicher Weise werden bei Additions¬ 
und Subtraktionsgleichungen (das Programm 
stellt zwecks vereinfachter Handhabung oh¬ 
nehin Subtraktionen zu Additionen und Divi¬ 
sionen zu Multiplikationen um) auch aus dem 
linken Rand der Originalgleichungen neue 
Gleichungen extrahiert. Nicht unwichtig für die 


( 


Programm 

ZahlenGuru.mod 

Zweck 

Lösung von Zahlenrätseln 

Version 

1.3 

Autor 

Niels Knoop 

Copyright 

Public Domain 

Sprache 

Oberon 

Compiler 

Amiga Oberon Demo v2.0 (Amok #53 


MODOLE ZahlenGuru; 

IMPORT io; 

TYPE raetselzahl = RECORD 

Stelle : ARRAY 4 OF INTEGER 
END; 

raetselgleichung = RECORD 
zahl : ARRAY 3 OF raetselzahl; 

operator : CHAR; 

unbekannte : INTEGER; 

enthalten : ARRAY 11 OF BOOLEAN; 

einstellig, 
vorne : BOOLEAN 

END; 

VAR gleichung ; ARRAY 18 OF raetselgleichung; 
Symbol : ARRAY 11 OF CHAR; 

Ziffer,rangtab : ARRAY 11 OF INTEGER; 
gleichungen,Symbole : INTEGER; 

PROCEDURE Eingabe; 

VAR i,j,k,l,delta,aktsymbole ; INTEGER; 
reihe : ARRAY 5 OF CHAR; 
aktZeichen : CHAR; 

Speicher : raetselzahl; 

Zeichen : CHAR; 

BEGIN 

gleichungen := 6; 

Symbole ;= 0; 

Symbol[0] := " 
ziffer[0] := 0; 
i := 0; 

WHILE i < 3 DO 

j := 0; 

WHILE j < 3 DO 


io.WriteStringC'Zahl Nr. "); 
io.WriteInt(3 * i + j + 1,1); 
io.WriteStringl" ? "l.- 
io. ReadStr ing (reihe) ; 
delta := 4; 

WHILE (delta > 0) & (reihe(4 - delta] # CHR(0)) DO 
DEC(delta) 

END; 

k ; = 0; (* Zahlen rechtsbündig formatieren *) 

WHILE k < delta DO 
gleichung[i].zahl[j].stelle[k] := 0; 

INC(k) 

END; 

WHILE k < 4 DO 

aktzeichen := reihe[k - delta]; 

1 := 0 ; 

WHILE (1 < 10) & (1 <= Symbole) i (symbol[1] # aktzeichen) DO 
INC(1) 

END; 

IF 1 > Symbole THEN (* Symbole merken und mitzählen *) 

INC(Symbole); 

symbol[symbole] := aktzeichen 
END; 

gleichung[i].zahl[j].stelle[k] : = 1; 

INC(k) 

END; 

INC(j) 

END; 

INC(i) 

END; 
i := 3; 

WHILE i < 6 DO (* Vertikale Gleichungen aufstellen *) 

j := 0; 

WHILE j < 3 DO 

gleichung[i].zahl[j] := gleichung[j].zahl[i - 3]; 

INC(j) 

END; 

INC(i) 

END; 
i := 0; 

WHILE i < 6 DO 

io.WriteStringl"Operator Nr. "); 
io.WriteInt(i + 1,1); 

»ZahlenGuru.mod«: Oberon-Listing zum Knacken von 
Symbolrätseln (Anfang) 


42 


Faszination Programmieren Nr.2 






KNOBELEIEN 




■■■■ 


Laufzeit ist dabei, daß nicht nur führende Leer¬ 
stellen aller drei Zahlen (» « + » « = » «), son¬ 
dern auch »Nieten« der Form »x« + » « = »x« 
oder » « + »x« = »x« übersprungen werden, 
welche, mit einer Unbekannten bevorzugt nach 
vorne sortiert, von jeder Ziffer erfüllt werden. 
Auch die »linken« Gleichungen sind mehr¬ 
deutig, weil ein möglicher von rechts kom¬ 
mender Übertrag berücksichtigt werden muß. 

... Beschleunigung 
um Faktor 10 000 

Weil zum Sortieren nun mehr Gleichungen 
und solche mit weniger Unbekannten zur Ver¬ 
fügung stehen, wird die Lösung stark be¬ 
schleunigt. denn je weniger Unbekannte en 
bloc (also in einer gemeinsamen Gleichung) 
durchprobiert werden müssen, insbesondere zu 
Anfang, desto früher werden falsche Lösungen 
aussortiert - der Rekursionsbaum wird kräftig 
entlaubt. 

Die reine Rechenzeit (ohne Laden und Lö¬ 
sungsausgabe) zur Lösung von einigen Dut¬ 
zend Rätseln, die wir aus verschiedenen Zeit¬ 
schriften und Rätselheften zusammengesucht 
haben und die alle neun oder zehn Symbole 
hatten, betrug stets weniger als eine Sekunde, 


im Mittel etwa 0,5 Sekunden; gegebüber der 
Ur-Version wurden Beschleunigungsfaktoren 
von 2000 bis über 10000 erzielt. 

Zum Programmtext 

Das Programm ist in der Programmierspra¬ 
che Oberon verfaßt (näheres zu Oberon in: 
»Faszination Programmieren Nr. 1. Seite 67 ff., 
»Auf Wirth sehen Spuren«, Programmierkurs 
Oberon). Es wurde mit der Demoversion 2.0 
des Amiga-OBERON-Compilers erstellt, die 
jedem zu empfehlen ist, der sich für diese Pro¬ 
grammiersprache interessiert (siehe Seite 114). 
Sie ist u.a. auf AMOK 53 zu Finden, frei ko¬ 
pierbar und enthält eingeschränkte Versionen 
von Compiler. Linker. Debugger und Editor so¬ 
wie eine Beschreibung des Oberon-Sprachum- 
fangs und des Compilers. 

Um den Quelltext des Programms zu modi¬ 
fizieren. muß man allerdings auf einen anderen 
Editor zurückgreifen (z.B. ED), da der Oberon- 
Editor in der Demo-Version nur 200 Zeilen 
Text verarbeitet. 

Die Übersetzungsanweisungen lauten: 
oberon -dmsvb ZahlenGuru 
olink -dms ZahlenGuru 

Mit wenigen Änderungen läßt sich das Pro¬ 
gramm auch von einem Modula-2-Compiler 
übersetzen lassen, da es keinen Gebrauch von 


Typenerweiterung oder anderen speziellen 
Oberon-Features macht und damit weitgehend 
(Modula-2-Fans mögen das Won verzeihen) 
»abwärtskompatibel« ist. 

Wer sich die Laufzeitverkürzungen veran¬ 
schaulich will, kann den Aufruf der Prozedur 
»Erweitern« im Hauptprogramm als Kom¬ 
mentar ausklammern; dann werden nur die ur¬ 
sprünglichen Gleichungen sortiert und bear¬ 
beitet. Ganz Hartgesottene können zusätzlich 
auch den Aufruf von »Sortieren« unterbinden, 
worauf die Holzhammer-Methode angewandt 
wird, was dann allerdings wegen anderer Kon- 
trollweise noch etwas länger dauert als in der 
ursprüngliche Version. 

Raum für weitere 
Verbesserungen 

Der vorgestellte Algorithmus kann mit Si¬ 
cherheit noch verbessert werden - denken Sie 
z.B. an feinere Sortierkriterien - und auch die 
Implementation als solche holt wohl nicht die 
höchstmögliche Geschwindigkeit heraus, da 
sich der Autor in erster Linie bemüht hat, über¬ 
sichtlich und verständlich zu bleiben. Versu¬ 
chen Sie das Ganze doch einmal selbst und 
schicken Sie uns Ihre Verbesserungen. ■ 


io.WriteStringf" ? "); 
io.ReadStringireihe); 

IF (reihe [0] = "+") 0R (reihe[0] = "“) THEN 
gleichungti].operator := reihe[0] 

ELSE 

Speicher := gleichungti].zahl!0); (♦ Gleichungen *) 

gleichungti].zahl[0] := gleichungti].zahl[2]; (‘umstellen: *) 
gleichungti].zahl[2] := Speicher; (* x-y=z:z+y=x ‘) 

IF reihe [0] = THEN (* x/y=z:z*y=x *) 

gleichungti] .operator : = 

ELSE 

gleichungti].operator := 

END 

END; 


gleichungti].einstellig := FALSE; 
gleichungti].vorne := FALSE; 
gleichungti].unbekannte := Symbole; 
INC(i) 

END; 

i := 1; 

WHILE i <= Symbole DO 
rangtabti] := i; 

INC(i) 

END; 

io.WriteLn 
END Eingabe; 

PROCEDURE Anzeige; 

VAR i : INTEGER; 

BEGIN 

io.WriteString("Lösung:"); 
io.WriteLn; 
i := 1; 

WHILE i <= Symbole DO 
io.Write(symbol[i]); 

INC(i) 

END; 

io.WriteLn; 
i := 1; 

WHILE i <= Symbole DO 
io.WriteInt(ziffer[i],1); 

INC(i) 

END; 

io.WriteLn; 


io.WriteLn 
END Anzeige; 

PROCEDURE Erweitern; 

VAR i,j,k,pos : INTEGER; 


BEGIN 
i := 0; 

WHILE i < 6 DO 

j := 0, 

WHILE j < 3 DO (* Neue Gleichungen aus dem rechten Rand 

k := 0; (‘der Ursprungsgleichungen gewinnen 

WHILE k < 3 DO 

gleichungtgleichungen].zahl[j].stelle[k] := 0; 

INC (k) 


END; 

gleichungtgleichungen].zahltj].stelle[3] : = 
gleichungti].zahl[j].stelle[3]; 

INC(j) 

END; 


gleichungtgleichungen].operator := gleichungti].operator; 
gleichungtgleichungen].einstellig := TRUE; 
gleichungtgleichungen].vorne := FALSE; 

INC(gleichungen); 

IF gleichungti].operator = "+" THEN (* Bei +/- Gleichungen 
pos:=0; (* auch vom linken Rand 

WHILE (pos < 4) & 

(((gleichungti].zahl[1].stelletpos] = (‘Nieten 

gleichungti].zahl(2].stelletpos]) & (* x+"=x 

(gleichungti].zahl[0].stelletpos] = 0)) 0R (* "+y=y 
((gleichungti].zahl[0].stelletpos] = (* 

gleichungti].zahl[2].stelletpos]) & (* über- 

lgleichung [i].zahl[1].stelletpos) = 0))) DO (* gehen 
INC(pos) 


END; 


IF (pos < 4) THEN 

j := 0; 

WHILE j < 3 DO 
k := 0; 

WHILE k < 3 DO 

gleichung[gleichungen]..zahl[j] .stelle[k] := 0; 
INC(k) 


END; 


*> 

*) 


*> 

*) 

*) 

*) 

•) 

*) 

*) 

*) 
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gleichunglgleichungen].zahl[j].stelle[3] := 
gleichungti].zahltj].stelle[pos]; 

INC(j) 

END; 

gleichunglgleichungen].operator := " + "; 
gleichunglgleichungen].einstellig := TRUE; 
gleichunglgleichungen].vorne := TRUE; 
INC(gleichungen) 

END 

END; 

INC(i) 

END 

END Erweitern; 


PROCEDURE Sortieren; 

VAR i,j,k,aktsym,min,rangpos : INTEGER; 

Speicher : raetselgleichung; 

BEGIN 
i := 0; 

WHILE i < gleichungen DO (* Unbekannte zählen und notieren *) 

gleichungti].unbekannte := 0; 
j := 1; 

WHILE j < 11 DO 

gleichungti].enthalten!j] := FALSE; 

INC(j) 

END; 

j := 0; 

WHILE j < 3 DO 
k := 0; 

WHILE k < 4 DO 

aktsym := gleichungti].zahltj].stelle[k]; 

IF (aktsym > 0) & -gleichungti].enthalten[aktsym] THEN 
gleichungti].enthalten[aktsym] : = TRUE; 

INC(gleichungti].unbekannte) 

END; 

INC(k) 

END; 

INC(j) 

END; 

INC(i) 

END; 

rangpos := 0; 
i := 0; 

WHILE i < gleichungen DO (* Gleichungen sortieren *) 

min := i; 

j i + 1; 

WHILE j < gleichungen DO 

IF gleichungtj].unbekannte < gleichung[min].unbekannte THEN 
min := j 
END; 

INC(j) 

END; 

IF min > i THEN 
Speicher := gleichungti]; 
gleichungti] := gleichung[min]; 
gleichung[min] := Speicher 
END; 

j := 1; 

WHILE j <= Symbole DO 

IF gleichungti].enthalten!j] THEN 
INC(rangpos); 
rangtabtrangpos] := j; 
k := i + 1; 

WHILE k < gleichungen DO 
IF gleichungtk].enthaltentj] THEN 
gleichung [k] .enthalten!j] := FALSE 
ELSE 

INC(gleichungtk].unbekannte) 

END; 

INC(k) 

END 
END; 

INC(j) 

END; 

INC(i) 

END 

END Sortieren; 


(* Gleichung mit wenigsten *) 
(* Unbekannten vorziehen; *) 
(* diese in "rangtab" ein- *) 
(* fügen aus den Bestands- *) 
(* listen der übrigen Glei-*) 
(* chungen herausnehmen. *) 
(* Achtung: Hinterher ent- *) 
(* hält der Eintrag "unbe- *) 
(* kannte” der Gleichung i *) 
(* Gesamtzahl der Unbek. *) 
(* in den Gleichungen 0..i *) 


PROCEDURE Durchlauf(glnum,ebene : INTEGER); 
VAR i,j : INTEGER; 

wert0,wertl,wert2 : LONGINT; 


Ok : BOOLEAN; 

BEGIN 

IF ebene <= gleichung[glnum].unbekannte THEN 
i := 0; 

WHILE i < 10 DO 

Ziffer[rangtab[ebene]] := i; (* Aktuelle Unbek. mit freien *) 
j ;= 1; (* Ziffernwerten 0-9 belegen *) 

WHILE ziffer[rangtab[j]] # i DO 
INC(j) 

END; 

IF j = ebene THEN 

Durchlauf(glnum,ebene + 1) (* Weiter zur nächsten Unbek. *) 

END; 

INC(i) 

END 

ELSE (* Gleichung kontrollieren *) 

IF gleichung[glnum].einstellig THEN 
wertO := Ziffer[gleichung[glnum].zahl[0].stelle[3]]; 
wertl := Ziffer[gleichung[glnum].zahl[1].stelle[3]]; 
wert2 := Ziffer[gleichung[glnum].zahl[2].stelle[3]]; 

IF gleichung[glnum].vorne THEN 
wertl := wertO + wertl; 
ok := (wertl = wert2) OR (wertl + 1 = wert2) 

ELSE 

IF gleichung[glnum].operator = ”+" THEN 
wertl := wertO + wertl; 
ok := (wertl = wert2) OR (wertl = wert2 + 10) 

ELSE 

ok := (wertO * wertl) MOD 10 = wert2 
END 
END 
ELSE 


wertl 


wert 2 


wertO := 1000 * Ziffer[gleichungtglnum].zahl[0].stelle[0]] + 
100 * ziffer[gleichung[glnum].zahl[0].stelle[1]] ♦ 
10 * Ziffer[gleichung[glnum].zahl[0].stelle[2]] + 
Ziffer[gleichung[glnum].zahl[0].stelle[3]]; 
1000 * Ziffer[gleichung[glnum].zahl[1].stelle[0]] + 
100 * Ziffer[gleichung[glnum].zahl[1].stelle[l]] + 
10 * Ziffer[gleichung[glnum].zahl[1].stelle[2]] + 
ziffer[gleichung[glnum].zahl[1].stelle[3]]; 
1000 * Ziffer [gleichung[glnum].zahl[2].stelle[0]] + 
100 ‘ Ziffer[gleichung[glnum].zahl[2].stelle[1]] + 
10 * Ziffer[gleichung[glnum].zahl[2].stelle[2]] + 
ziffer[gleichung[glnum].zahl[2].stelle[3]]; 
IF gleichung[glnum].operator = "+" THEN 
ok := wertO + wertl = wert2 
ELSE 

ok := wertO * wertl = wert2 
END 
END; 

IF ok THEN 


IF glnum < (gleichungen - 1) THEN 
Durchlauf(glnum + 1,ebene) (* Weiter zur nächsten Gl. 

ELSE 
Anzeige 
END 
END 
END 

END Durchlauf; 


*) 


BEGIN 

io.WriteLn; 

io.WriteString(”##### ZahlenGuru 1.3 #####"); 

io.WriteLn; 

io.WriteLn; 

Eingabe; 

io. WriteString("Meditiere..."); 

io.WriteLn; 

io.WriteLn; 

Erweitern; 

Sortieren; 

Durchlauf(0,1); 

io.WriteStringC'Ende, keine weiteren Lösungen.”); 
io.WriteLn; 
io.WriteLn; 
io.closeDelay := 750 
END ZahlenGuru. © 1993 M&T 

»ZahlenGuru.mod«: Oberon-Listing zum Knacken von 
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Schachautomaten 


Quevedo geknackt 



Matt in wieviel Zügen? Kaum zu glauben, aber der Amiga kann sogar solche 
Aufgaben lösen 


In der Knobelecke des AMIGA-Ma- 
gazins 4/93 fragten wir nach einem 
Programm, das einfache Schachauf¬ 
gaben lösen soll. Niels Knoop aus 
Kronberg machte sich an diese kom¬ 
plizierte Programmieraufgabe und 
schickte uns eine Lösung in Obemn-2. 


von Niels Knoop 


D as Programm Quevedo trägt den Na¬ 
men des spanischen Erfinders Leonar¬ 
do Tones y Quevedo, der im Jahre 
1890 eine Schachmaschine präsentierte, die das 
Endspiel mit Turm und König gegen König be¬ 
herrschte. Verschuldet hat dieses Programm die 
Knobelecke des AMIGA-Magazins, die in der 
Ausgabe 4/93 aufrief, auch dem Amiga diese 
Fähigkeit zu verleihen und dabei die bis zum 
Matt höchstens erforderliche Zuganzahl von 
über 60 der Originalmaschine in Richtung der 
theoretischen Grenze von 16 zu vermindern. 

Bedienung: 

Quevedo kann von der Shell oder von der 
Workbench gestartet werden, wobei beim Start 
von der Shell darauf zu achten ist, daß die 
Größe des Fensters für die Darstellung des 
Schachbretts und des Partieverlaufs ausreicht 
(mindestens 28 Zeilen Text im eingestellten 
Standard-Font). Wenn das Programm per Icon 
von der Workbench geladen wird, öffnet es ein 
eigenes Fenster, dessen Größe man über den 
TOOLTYPE-Eintrag »WINDOW=...« im Icon 
einstellen kann. Das Schließen des Fensters 
nach dem Programmende erfolgt absichtlich 
erst nach ein paar Sekunden Verzögerung. 

Turm und König 
setzen matt 

Nach Eingabe der Ausgangsposition tritt 
Quevedo mit weißem Turm und König gegen 
den Benutzer an. der versuchen soll, den 
schwarzen Turm bestmöglich zu verteidigen. 
Die Eingabe eines Zugs erfolgt dabei durch 
Angabe eines Zielfeldes (a4,B8 etc.) oder einer 
Ziffer (I -4, 6-9). die entsprechend der Anord¬ 
nung der Tasten im Zahlenblock die Richtung 
ausdrückt, in die der König ziehen soll. Jede 
Eingabe muß mit der Return- oder Enter-Taste 
abgeschlossen werden. Unzulässige Eingaben 
werden abgefangen und erneut abgefragt. Ein 
Abbruch des Spiels ist durch Eingabe von <q> 
möglich. Man sollte etwas vorsichtig mit der 
Return- und der Enter-Taste umgehen, da die 


Anzeige der Figuren und des Partie Verlaufs 
sonst etwas durcheinanderkommen kann. 

Programnitext: 

Quevedo wurde in Oberon-2 geschrieben 
und mit Amiga Oberon 3.0 übersetzt. Wer kei¬ 
nen Oberon-Compiler besitzt, kann auch die 
Demo-Version 3.0 dieses Compilers verwen¬ 
den. die unter anderem auf AMOK #75 zu fin¬ 
den ist. 

Die wesentlichen Unterprogramme, die Be¬ 
wertung und Auswahl der Züge vornehmen, 
wurden samt ihren Hilfsmitteln in das Modul 
QuevedoRoutinen ausgelagert, während das 
Hauptmodul Quevedo die Ein- und Ausgabe 
und den Aufruf der entsprechenden Routinen 
übernimmt. 

Arbeitsweise 

Obwohl sich die Situation auf dem Brett mit 
den gerade mal drei Figuren wesentlich einfa¬ 
cher darstellt als bei einem normalen Schach¬ 
spiel. verbietet es sich dennoch von vornherein, 
den jeweils optimalen Zug durch Vorauspla¬ 
nung aller Züge inklusive der schlimmstmög- 
lichen Selbstverteidigung des Gegners bis zum 


Matt zu ermitteln. Sicherlich kann ein Pro¬ 
gramm schon wertvolle Informationen be¬ 
kommen und damit gut spielen, ohne sich gar 
so weit in die Tiefe zu begeben. Die Frage ist 
allerdings, ob es überhaupt nötig ist, auf diese 
Art vorzugehen, oder ob die stark geminderte 
Komplexität in dieser Art von Endspiel nicht 
ein einfacheres und schnelleres Vorgehen er¬ 
möglicht. welches wohl kaum das Optimum 
darstellen, diesem aber immerhin nahe kom¬ 
men kann. 

Am Anfang der Arbeit an diesem Pro¬ 
gramm stand die Entscheidung, einen Weg ein¬ 
zuschlagen. bei dem quasi in Echtzeit nur aus 
den Informationen der jeweiligen Stellung die 
unmittelbar möglichen Züge in ihrem Wen ein¬ 
geschätzt werden und derjenige ausgeführt 
wird, der dabei am besten abschneidet. Ein Al¬ 
gorithmus, der auf diese Weise funktioniert, 
»denkt« also nur einen Zug voraus und ver¬ 
steckt seine Taktik in der Bewertung der po¬ 
tentiellen Züge. Die Regeln, die er dabei an¬ 
wendet, sind, wenn man sie erstmal gefunden 
hat, zwangläufig recht einfach zu befolgen, was 
das Vorgehen relativ mechanisch und nach¬ 
vollziehbar macht - nicht unähnlich also der 
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Vorstellung vom »Schachautomaten« des Elek¬ 
troingenieurs Quevedo. 

Der Kern des Programms Quevedo besteht 
folglich in einer Bewertungsprozedur, der je¬ 
weils alle durch einen weißen Zug erreichba¬ 
ren Stellungen unterworfen werden, ungeach¬ 
tet dessen, wie die Partie bisher verlaufen ist 
und welche der weißen Figuren ziehen würde. 
Die Güte der verwendeten Bewertungskriteri¬ 
en entscheidet also darüber, ob und wie gut das 
Programm seiner Aufgabe gerecht wird. 

Um geeignete Maßstäbe zu finden, überlegt 
man sich am besten zunächst Techniken, wie 
das Matt herbeigeführt werden kann, und ver¬ 
sucht anschließend, die jeweilige Vorgehens¬ 
weise in die Form von Bewertungskriterien zu 
gießen. Dabei stellt man fest, daß die ver¬ 
schiedenen Strategien zwangsläufig viele Ge¬ 
meinsamkeiten haben. Da der schwarze König 
prinzipiell nur am Rand oder in einer Ecke des 
Brettes mattgesetzt werden kann, indem der 
Turm entlang dieses Randes Schach gibt und 


der weiße König das Ausweichen in Richtung 
Brettmitte verhindert, wird jede Strategie ein 
Abdrängen des Gegners an den Rand oder in 
die Ecke beinhalten. Außerdem darf niemals 
der Turm aufs Spiel oder der Gegner patt ge¬ 
setzt werden, was sich in der Bewertung ent¬ 
sprechender Stellungen niederschlagen muß. 

Die Methode, mit der Quevedo 2.0 den geg¬ 
nerischen König matt setzt, besteht im we¬ 
sentlichen darin, daß der Turm versucht, den 
schwarzen König gemeinsam mit dem eigenen 
in einer möglichst kleinen Bretthälfte waage¬ 
recht oder senkrecht einzuschließen - wobei 
die Grenzlinien als eine Art Todesstreifen zu 
keiner der von ihnen getrennten Hälften 
gehören - und diese Hälfte kontinuierlich zu 
verkleinern. Wenn das nicht möglich ist. weil 
sich einer der Könige an der Grenze befindet, 
bedrängt der weiße König seinen Widersacher 
von der Seite, wobei er - bevorzugt orthogo¬ 
nal zur Turmgrenze - auf ihn zugeht und mög¬ 
lichst vermeidet, selbst an die Grenze heran¬ 


zutreten. Wenn der Turm angegriffen wird oder 
der Gegner mit einem Tempozug in Zugzwang 
gebracht werden soll, kann sich der Turm auf 
dem Grenzstreifen ein sicheres Plätzchen su¬ 
chen, ohne gewonnenes Terrain zu opfern. Auf 
diese Weise wird der schwarze König gleich¬ 
zeitig in zwei Richtungen gedrängt; er muß 
stets nach einer Seite nachgeben, bis er sich 
schließlich in der Ecke wiederfindet und nur 
noch ein Ausweichfeld hat. Aus dieser Lage 
heraus kann er mit Sonderbehandlung in drei 
Zügen mattgesetzt werden. 

Diese Strategie wird beim Ausprobieren des 
Programms schnell verständlich, weshalb sie 
hier nicht weiter ausgeführt zu werden braucht. 
Sie fand ihren Niederschlag in einer Reihe von 
Bewertungskriterien. Diese werden für die je¬ 
weilige Stellung berechnet, in eine Zahlenform 
gebracht, in der kleinere Werte für günstigere 
Eigenschaften stehen, und nach Prioritäten ge¬ 
ordnet nebeneinander in der Gesamtwertung 
versammelt, indem sie nacheinander in die un- 


(* Programm : Quevedo.mod 

Zweck : Schachendspiel Turm und König gegen König 

Version : 2.0 / 5-8-93 

Autor : Niels Knoop 

Copyright : Public Domain 

Sprache : Oberon-2 

Compiler : Amiga Oberon 3.0 *) 

MODULS Quevedo; 

IMPORT QuevedoRoutinen,io; 

VAR zuege : INTEGER; 

altpoB.neupos : QuevedoRoutinen.Stellung; 
zeichenkette : ARRAY 255 OF CHAR; 
abbruch : BOOLEAN; 

PROCEDURE LesePosition(VAR x,y : INTEGER) : BOOLEAN; 

(* Richtung (per Zahlenblock) oder Zielfeld einiesen *) 

VAR eingabe : ARRAY 100 OF CHAR; 

n : INTEGER; 

BEGIN 

io.ReadString(eingabe); 

IF eingabe[1] # CHR(0) THEN 
x := 0RD(CAP(eingabe[0])) - 64; 
y := ORD(CAP(eingabe[l])) - 48 
ELSE 

n := ORD(eingabe[0]) - 48; 

IF (n >= 1) & (n <= 9) THEN 
x := x + (n - 1) MOD 3 - 1; 
y ;= y + (n - 1) DIV 3 - 1 
END 
END; 

RETURN (CAP(eingabe[0)) = "Q”) 

END LesePosition; 

PROCEDURE SchreibePosition(x,y : INTEGER); 

(* Feldkoordinaten im Klartext ausgeben *) 

BEGIN 

io.Write(CHR(x + 96)); 
io.Write(CHR(y + 48)) 

END Schreibeposition; 

PROCEDURE GotoXY(x,y : INTEGER); 

(* Cursor im Console-Fenster setzen *) 

VAR sequenz : ARRAY 10 OF CHAR; 

BEGIN 

sequenz := "\[00;00H"; 
sequenz[1] := CHR((y DIV 10) MOD 10 + 48); 
sequenz[2] := CHR(y MOD 10 + 48); 
sequenz[4] ;= CHR((x DIV 10) MOD 10 + 48); 
sequenz[5] := CHR(x MOD 10 + 48); 
io.WriteString(sequenz); 

END GotoXY; 

PROCEDURE Brettmalen; 

(* Schachbrett auf den Bildschirm zeichnen *) 

VAR i,j,k : INTEGER; 

schwarz,weiss,leer : ARRAY 5 OF CHAR; 

BEGIN 

schwarz := “\[41m"; 


weiss :s "i[42m"; 
leer := "i[40m"; 

io.WriteString("\[0m\f \r"); (* sic! *) 

FOR i :* 8 TO 1 BY -1 DO 
FOR j := 1 TO 3 DO 
GotoXYll, 25 - 3 * i + j); 
io.WriteStringf" "); 

FOR k := 1 TO 8 DO 
IF (i MOD 2 = k MOD 2) THEN 
io.WriteString(schwarz); 

ELSE 

io.WriteString(weiss) ; 

END; 

io.WriteString!" ") 

END; 

io.WriteString(leer); 

END; 

END; 

FOR i := 8 TO 1 BY -1 DO 
GotoXY(2, 27 - 3 * i); 
io.Write(CHR(i + 48)) 

END; 

FOR i := 1 TO 8 DO 
GotoXY(5 * i + 1, 27); 
io.Write(CHR(i + 64)) 

END 

END Brettmalen; 

PROCEDURE BeschreibeFeld(x,y,färbe : INTEGER; Zeichen : CHAR); 

(* Angegebenes Feld auf dem Bildschirm beschreiben oder löschen *) 
VAR sequenz ; ARRAY 25 OF CHAR; 

BEGIN 

sequenz : = "\[30m\[43m \[lm \(22m \[0m”; 

IF (färbe >= 0) THEN 
sequenz[2] : = CHR(farbe MOD 4 + 48); 
sequenz[6] := "3°; 
sequenz[12]:= Zeichen 
ELSE 

sequenz[6] : = CHR((x + y) MOD 2 + 49) 

END; 

GotoXY(5 * x, 27 - 3 ‘ y); 
io.WriteString(sequenz) 

END BeschreibeFeld; 

BEGIN 

io.Clear; 

io.WriteStringf" QUEVEDO 2.0 - Schachendspielin"); 
io.WriteStringf" Turm und König gegen Königin"); 
io.WriteString!"(benötigt ca. 80x30 Zeichen Platzlin"); 
io.WriteString("============================== == ==\n"); 

io.WriteStringC'Bitte die Anfangsstellung eingebenin"); 
io.WriteString("(z.B. Weiß: Th8 Kal, Schwarz: Kd5)inin"); 

LOOP 

io.WriteStringf"Weiß : T"); 

abbruch := LesePosition(altpos.wtx,altpos.wty); 

io.WriteStringf" K") ; 

abbruch := LesePosition(altpos.wkx,altpos.wky); 
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teren Stellen dieser Zahl geschrieben werden, 
nachdem dort zuvor durch Stellenverschiebung 
Platz geschaffen wurde. Das ermöglicht nicht 
nur einen Vergleich zweier Stellungen mit ei¬ 
nem Befehl, sondern auch das Hinzufügen, 
Herausnehmen und Vertauschen von Kriterien 
mit minimalem Aufwand. 

ln eine Art Spielanleitung zur Bewertung 
umformuliert, lautet die Strategie nun (etwas 
vereinfacht) folgendermaßen : 

Bevorzuge von bis dato gleichwertigen Zü¬ 
gen diejenigen, nach denen 

a. der Gegner nicht pattgesetzt ist. 

b. der Turm nicht geschlagen werden kann, 

c. das Matt erzielt ist. 

d. ein Matt im nächsten Zug garantiert ist, 

e. ein Matt in zwei Zügen garantiert ist. 

f. die Breite der Bretthälfte der Könige am 
kleinsten ist, 

g. die beiden Könige sich bestimmten Maßen 
zufolge am nächsten sind, 

h. der Turm am sichersten ist. 


Die obere Anforderung an das Programm ist 
natürlich, daß es wirklich aus jeder beliebigen 
Ausgangsstellung mattsetzen kann. Vereitelt 
werden könnte dies noch durch ein Remis, das 
durch eine zyklische Wiederholung von Stel¬ 
lungen insbesondere durch direktes Hin- und 
Herziehen herbeigeführt werden kann, was ei¬ 
ne schlimme Falle für den Algorithmus be¬ 
deutet. Denn formal zu beweisen, daß ein Ver¬ 
fahren niemals Zyklen produziert, ist eine un- 
gemein aufwendige Angelegenheit. 

Das Prinzip, aus jeder Stellung heraus immer 
den gleichen Zug auszuführen, ungeachtet 
dessen, wann sie in der Partie erreicht wird, 
hilft aus dieser Verlegenheit heraus, da es er¬ 
möglicht, mit einer modifizierten Programm¬ 
version in wenigen Minuten (wozu hat man 
schließlich eine Turbokarte...) das Bewer¬ 
tungsverfahren auf Zyklen zu überprüfen. Ge¬ 
genüber den gigantischen Zugkombinationen, 
die möglich sind, gibt es ja nur eine ver¬ 
gleichsweise überschaubare Anzahl legaler 


Stellungen der drei Figuren. Sie zählt 175168 
Positionen (wenn Weiß am Zug ist), und wenn 
man einmal herausgefunden hat, daß eine 
Stellung mit dem vorgegebenen Algorithmus in 
n Zügen spätestens zum Matt führt, kann man 
dieses Wissen speichern und für andere Spiel¬ 
verläufe verwenden, die zu dieser Stellung 
führen, was die Rechenzeit erheblich verkürzt. 

Das Ergebnis verheißt, daß Quevedo zy¬ 
klenfrei ist; der Worst Gase beträgt 26 Züge. 
Allerdings dürfte das Auffinden einer entspre¬ 
chenden Ausgangsposition, ebenso wie die op¬ 
timale Verteidigung ohne genaues Studium des 
Programms schwierig sein - und von der im 
AMIGA-Magazin als besonders ungünstig prä¬ 
sentierten Stellung wTh8, wKal, sKd5 aus 
werden nie mehr als 20 Züge benötigt. 

Copyright und ein kleiner Wink: 

Quevedo ist ein Publie-Domain-Programm, 
das frei benutzt, kopiert und weiterentwickelt 
werden darf - viel Spaß ! £ 


io.WriteString("Schwarz: K"); 

abbruch : = LesePosition(altpos.skx,altpos.sky); 

IF QuevedoRoutinen.LegaleStellung(altpos) THEN 
EXIT 
END; 

io.WriteString("\nSorry, illegale Stellung !\n\n") 
END; 

io.WriteLn; 

Brettmalen; 

BeschreibeFeld(altpos.wtx,altpos.wty, 2, "T"); 
BeschreibeFeld (altpos. wkx, altpos. wky, 2," K 11 ); 
BeschreibeFeld(altpos.skx,altpos.sky,1,"K”); 
abbruch := FALSE; 
zuege := 1; 
neupos := altpos; 

REPEAT 

QuevedoRoutinen.WeisserZuglneupos); 

GotoXY(49,zuege + 1); 
io.WriteInt(zuege,2); 
io.WriteStringf". "); 

IF neupos.turazug THEN 
io.WriteCT") ; 

SchreibePosition(altpo8.wtx,altpos.wty); 
io.WriteC-"); 

Schreibeposition(neupos.wtx,neupos.wty); 
BeschreibeFeld(altpo8.wtx,altpo8.wty,-l," "); 
BeschreibeFeldlneupos.wtx,neupos.wty,2,"T") 

ELSE 

io.Write("K"); 

Schreibeposition (altpos. wkx, altpos. wky); 
io.WriteC-")? 

Schreibeposition(neupos.wkx,neupos.wky); 
BeschreibeFeld(altpos.wkx,altpos.wky,-1," "); 
BeschreibeFeld (neupos. wkx, neupos. wky, 2," K") 

END; 

IF neupos.schach THEN 
GotoXY(60,zuege + 1); 


io.Write("+") 

END; 

IF -neupos.matt THEN 
GotoXYf62,zuege + 1); 
io.Write("K"); 

Schreibeposition(altpos.skx,altpos.sky)? 
io.WriteC-"); 

REPEAT 

neupos.skx := altpos.skx; 
neupos.sky : = altpos.sky; 

GotoXY(66,zuege + 1); 

abbruch := LesePosition(neupos.skx,neupos.sky); 

GotoXY(66,zuege + 1); 
io.WriteStringf"\[K") 

ÜNTIL abbruch OR QuevedoRoutinen.LegaleStellung(neupos) & 

((neupos.skx # altpos.skx) OR (neupos.sky # altpos.sky)) & 

(ABS(neupos.skx - altpos.skx) <= 1) & 

(ABS(neupos.sky - altpos.sky) <= 1); 

IF -abbruch THEN 

BeschreibeFeld(altpos.skx,altpos.sky,-1," "); 

BeschreibeFeldlneupos.skx,neupos.sky,1,"R"); 

GotoXY(66,zuege + 1); 

SchreibePositionlneupos.skx,neupos.sky) 

END 
ELSE 
io.Write 
END; 

altpos := 

INC(zuege) 

UNTIL neupos 
GotoXY(l,28); 
io.closeDelay := 250 
END Quevedo. © 1993 M&T 

»Quevedo.mod«: Oberon-2-Programm, um Turmendspiele 
zu lösen (wichtige Funktionen siehe Listing unten) 




(‘ QuevedoRoutinen.mod Version 2.0 / 5-8-93, Kern von Quevedo *) 

RETURN b 


END 

MODULE QuevedoRoutinen; 

END Mini; 

TYPE Stellung* = RECORD 

PROCEDURE Maxi(a,b : INTEGER) ; INTEGER; 

wtx*,wty*,wkx*,wky*,skx*,sky* : INTEGER; 

BEGIN 

8chach*,matt*,turmzug* : BOOLEAN; 

IF (a > b) THEN 

bewertung : LONGINT 

RETURN a 

END; 

ELSE 


RETURN b 

PROCEDORE Mini(a,b : INTEGER) ; INTEGER; 

END 

BEGIN 

END Maxi; 

IF (a < b) THEN 


RETDRN a 

»QuevedoRoutinen.mod«: Kernroutinen des Schachpro- 

ELSE 

gramms als Extra-Modul (Anfang) 
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PROCEDÜRE Zahl(ausdruck : BOOLEAN) : INTEGER; 

(* FALSE -> 0, TRUE -> 1 *) 

BEGIN 

IF (ausdruck) THEN 
RETURN 1 
ELSE 
RETURN 0 
END 

END Zahl; 

PROCEDÜRE Bedroht(s : Stellung; x,y : INTEGER) : BOOLEAN; 

(* Bedroht der weiße Turm oder König in Stellung s das Feld (x,y) ? *) 
BEGIN 

RETURN (Maxi(ABS(s.wkx - x),ABS(s.wky - y>) = 1) OR 

(s.wtx = x) & ((s.wkx # x) OR ((s.wky < s.wty)=(s.wky < y))) OR 
(s.wty = y) & ((s.wky # y) OR ((s.wkx < s.wtx)=(s.wkx < x))) 

END Bedroht; 

PROCEDÜRE LegaleStellung*(s : Stellung) : BOOLEAN; 

(* Ist die Stellung s legal, wenn weiß am Zug ist ? *) 

BEGIN 

RETURN (s.wtx >= 1) & (s.wtx <= 8) & (s.wty >= 1) & (s.wty <= 8) & 

(s.wkx >= 1) & (s.wkx <= 8) & (s.wky >= 1) & (s.wky <= 8) & 

(B.skx >= 1) & (s.8kx <= 8) & (s.sky >= 1) & (s.sky <* 8) & 

((s.wtx # s.wkx) OR (s.wty # s.wky)) & 

((s.wkx # s.8kx) OR (s.wky * s.sky)) & 

((s.skx # s.wtx) OR (s.sky # s.wty)) & 

-Bedroht(8,s.skx,s.sky) 

END LegaleStellung; 

PROCEDÜRE Bewertestellung(VAR s ; Stellung); 

(* Stellung s bewerten und ggf. die Variablen schach und matt setzen *) 
VAR zeilen,spalten,reihen,deltawksk,deltawksk2,deltawtwk,deltawtsk, 
distanzx,distanzy,distanz,turmgefahrl,turmgefahr2,x,y : INTEGER; 
baldmatt,fastmatt,patt,turmbedroht : BOOLEAN; 

BEGIN 

s.schach := Bedroht(s,8.skx,s.sky); 
s.matt := FALSE; 
patt := TRUE; 

FOR x := Maxi(s.skx - 1,1) TO Minifs.skx + 1,8) DO 
FOR y := Maxi(s.sky - 1,1) TO Minifs.sky + 1,8) DO 
patt := patt 4 (Bedroht(s,x,y) OR (x = s.skx) & (y = s.sky)) 

END 

END; 

IF patt & s.schach THEN 
patt := FALSE; 
s.matt := TRUE 
END; 

deltawtwk := Maxi(ABS(s.wkx - s.wtx),ABSfs.wky - s.wty)); 

deltawtsk := Maxi(ABS(s.skx - 8.wtx),ABS(s.sky - s.wty)); 

deltawksk : = Maxi(ABS(s.skx - s.wkx),ABS(s.sky - s.wky)); 

deltawksk2:= ABS(s.skx - s.wkx) + ABSfs.sky - s.wky); 

turmgefahrl := deltawtwk - deltawtsk + 8; 

turmgefahr2 := 8 - deltawtsk; 

turmbedroht := (deltawtsk = 1) & (deltawtwk > 1); 

IF (s.wtx < s.skx) & (s.wtx < s.wkx) THEN 
spalten := 8 - s.wtx 

ELSIF (s.wtx > 8.skx) & (s.wtx > s.wkx) THEN 
spalten := s.wtx - 1 
ELSE 

spalten := 9 
END; 

IF (s.wty < s.sky) & (s.wty < s.wky) THEN 
zeilen := 8 - s.wty 

ELSIF (s.wty > 8.sky) & (s.wty > s.wky) THEN 
zeilen := s.wty - 1 
ELSE 

zeilen := 9 
END; 

distanzx := ABSIs.wkx - s.skx + 

(s.wtx - s.skx) * Zahl(ABS(s.wtx - s.skx) <= 1)); 
distanzy : = ABS(s.wky - s.sky + 

(s.wty - s.sky) * Zahl(ABS(s.wty - s.sky) <= 1)); 

IF (spalten < zeilen) OR (spalten=zeilen) & (distanzx<distanzy) THEN 
reihen : = spalten; 
distanz := distanzx 
ELSE 

reihen := zeilen; 
distanz := distanzy 
END; 

baldmatt := (Minifs.skx,9 - s.skx) = 1) & (Mini(s.sky,9 - s.sky)=1) & 
(deltawksk = 2) & (deltawksk2 = 3); 
fastmatt := (deltawksk = 2) & 

((Mini(s.skx,9 - s.skx) = 1) & 

((Mini(s.sky,9 - s.sky) = 2) & (zeilen = 2) OR 
(ABSfs.wty - s.sky) = 1) & (ABSfs.wty - s.wky) = 2)) OR 
(Mini(s.sky,9 - s.sky) = 1) & 


s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
s.bewertung 
END Bewertestellung; 

PROCEDÜRE WeisserZug*(VAR s : Stellung); 

(* Alle für Weiß möglichen Züge ausprobieren, den besten ausführen *) 

VAR i,x,y,xmin,xmax,ymin,ymax,anzahl,Optimum : INTEGER; 
minimum : LONGINT; 
pos : ARRAY 25 OF Stellung; 

BEGIN 

anzahl := 0; 

xmin := 1; xmax := 8; 
ymin := 1; 
ymax ;= 8; 

IF s.wtx = s.wkx THEN 
IF s.wty < s.wky THEN 
ymax := s.wky - 1 
ELSE 

ymin := s.wky + 1 
END 

ELSIF s.wty = s.wky THEN 
IF s.wtx < s.wkx THEN 
xmax := s.wkx - 1 
ELSE 

xmin :s s.wkx + 1 
END 
END; 

FOR x := xmin TO xmax DO 
IF (x # s.wtx) THEN 
pos[anzahl] := s; 
pos[anzahl].wtx := x; 
pos[anzahl].turmzug := TRUE; 

Bewertestellung(pos[anzahl]); 

INC(anzahl) 

END 
END; 

FOR y := ymin TO ymax DO 
IF (y # s.wty) THEN 
pos[anzahl] := s; 
pos[anzahl].wty := y; 
pos[anzahl].turmzug := TRUE; 

BewerteStellung(pos[anzahl]); 

INC(anzahl) 

END 
END; 

FOR x := Maxi(s.wkx - 1,1) TO Minits.wkx + 1,8) DO 
FOR y := Maxi(s.wky - 1,1) TO Mini(s.wky + 1,8) DO 
IF ((x # s.wkx) OR (y # s.wky)) & 

((x # s.wtx) OR (y # s.wty)) & 

(Maxi(ABS(x - s.skx),ABS(y - s.sky)) > 1) THEN 
pos [anzahl] := s; 
pos [anzahl].wkx := x; 
pos[anzahl].wky := y; 
pos[anzahl].turmzug := FALSE; 

Bewertestellung(pos[anzahl]); 

INC(anzahl) 

END 

END 

END; 

Optimum := 0; 

minimum := pos[0].bewertung; 

FOR i := 1 TO anzahl - 1 DO 
IF (pos[i].bewertung < minimum) THEN 
Optimum := i; 

minimum := pos[i].bewertung 
END 
END; 

s := pos[optimum] 

END WeisserZug; 

END QuevedoRoutinen. © 1993 M&T 

»QuevedoRoutinen.mod«: Kernroutinen des Schachpro¬ 
gramms als Extra-Modul (Ende) 


[(Mini(s.skx,9 - s.skx) = 2) & (spalten 
(ABSts.wtx - 8.skx) = 1) & (ABS(s.wtx - 
= 0 ; 

= s.bewertung ‘ 2 + Zahl(patt); 
s.bewertung * 2 + Zahl(turmbedroht); 

8.bewertung * 2 + Zahl(-s.matt); 

8.bewertung * 2 + Zahl(-fastmatt); 
s.bewertung * 2 + Zahl(-baldmatt); 
s.bewertung * 8 + reihen; 

s.bewertung * 8 + distanz; 

s.bewertung * 8 + deltawksk; 

= 8.bewertung * 8 + deltawksk2; 

= 8.bewertung * 8 + turmgefahrl; 

: s.bewertung * 8 + turmgefahr2 


= 2) OR 

8.wkx) = 2))); 
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Assembler optimieren 



Acht Damen im Schach 



»Acht Damen«: Eine von 92 Stellungen, in denen sich die Figuren nicht bedrohen; 
finden Sie die anderen 91 Möglichkeiten? Der Aniiga kann's. 


Wie optimiert man Assembler-Pro¬ 
gramme und wie bindet man Assem¬ 
bler-Routinen in C ein? Hierzu ein 
schönes Beispiel von LMM. Veugen, 
der uns eine Lösung zu einer Knobe¬ 
laufgabe schickte, bei der es darum 
ging, ein Programm zu schreiben, das 
acht Damen auf einem Schachbrett 
plaziert, ohne daß die Ladies sich ge¬ 
genseitig bedrohen. 


von L.M.M. Veugen 


D as C-Programm »DameTest.c« löst die 
Aufgabe, acht Damen auf einem 
Schachbrett zu verteilen. Das Pro¬ 
gramm ermittelt allerdings nur die Zahl der ver¬ 
schiedenen Möglichkeiten, gibt diese allerdings 
nicht aus. Das zweite Programm »Dame- 
Test.OUTPUT« zeigt dazu alle Stellungen. 

Das Hauptprogramm ist in der Sprache C ge¬ 
schrieben. die Berechnungsfunktion (»Dame- 
Calc«) in Assembler. 

Sie starten das Programm wie folgt: 
DameTest [n] 
mit 

n: Anzahl der Berechnungen 

Das Argument »n« ist per default 1. Wenn 
»n« größer als 1 ist. werden für eine genaue Be¬ 
stimmung der Zeitdauer der Berechnungsrou¬ 
tine n Berechnungen ausgeführt. 

Die Berechnungszeiten (in Sekunden) auf ei¬ 
nem Amiga (6X000 CPU, 2.3 MByte) sind: 

- 0.0754 s (ohne Ausgabe) und 
- 39.16 s (mit Ausgabe). 

Das Beispiel in Assembler im AMIGA-Ma- 
gazin 5/92 brachte es auf die Zeiten: 0.3072 s 
bzw. 39.60 s. Die vorgestellte Berechnungs¬ 
funktion ist also ungefähr viermal schneller. 

Der verwendete Algorithmus ähnelt dem im 
AMIGA-Magazin vorgestellten Beispiel. Die 
Gründe für die höhere Geschwindigkeit sind: 

1. Man braucht nur die Hälfte der Stellungen 
zu untersuchen, denn die Senkrechte durch die 
Brettmitte ist eine Symmetrielinie. 


In Ausgabe 5/92 5/1992, Seite 54 des 
AMIGA-Magazins wurde ein Programm vor¬ 
gestellt, welches das Acht-Damen-Problem 
löst: Es geht dabei darum, acht Damen auf 
einem Schachbrett aufzubauen, ohne daß 
eine Dame eine andere bedroht. Das hier 
vorgestellte Programm bietet eine kombi¬ 
nierte Lösung in C und Assembler, die um 
einiges schneller ist, als das zuerst vorge¬ 
stellte Programm. 


2. Es gibt keine Schleife, sondern die sie¬ 
ben/acht Durchgänge sind mit Makros pro¬ 
grammiert. 

3. Es wird nur einmal pro neue Reihe eine Mas¬ 
ke mit freien Feldern berechnet. 


4. Die benutzten Assemblerbefehle sind ef¬ 
fizient. z.B. verwendet das Programm keine 
Adreßregister-indirekte-Befehle. 

Auf den als Public-Domain erhältlichen 
Disketten zu diesem Sonderheft finden Sie in 


* DameTest.c by * 

* L.M.M. Veugen * 

* Amiga 500, Lattice 5.04 * 

Kinclude <stdio.h> 

#include <time.h> 

void _asm DameCalcl void ); 

static unsigned int tmBegin[2], tmEnd[2]; 

static void print_time() 

(while ( tmEndHl < tmBegin[l] ) 
tmEnd[0]--, tmEnd[l] += 1000000; 
printff "TIME = %d.%06d seconds\n", 
tmEnd[0]-tmBegin[0], tmEnd(l]-tmBegin(l) ) 

) 

int main( arge, argv ) 
int arge; 
char *argv[]; 

( long n, n_comps = 0; 


if ( arge > 1 ) 
n_comps = atoi( argv[l] ); 

timer( tmBegin ); 

DameCalcl); 
timer( tmEnd ); 

printf( "1 computation :\n" ); 
print_time(); 

Delay(50); 

if ( n^comps ) 

{ timer( tmBegin ); 
for ( n=0; n<n_comps; n++ ) 

DameCalc(); 
timer( tmEnd ); 

printf( "%d computations :\n”, n_comps ); 
print_time(); 

) 

) © 1993 M&T 

»DameTest.c«: Hauptprogramm, um 
alle Lösungen zu berechnen 
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KNOBELEIEN 




Verzeichnis »dfO:DAME« u.a. die folgenden 

Listings und Programme: 

DameTest.c C-Quelltext des Haupt¬ 

programms 

DameTest lauffähiges Hauptpro¬ 

gramm, ohne Ausgabe 

DameTest.OUTPUT lauffähiges Hauptpro¬ 
gramm, mit Ausgabe 

Dame.s Assembler-Source von 

Funktion DameCalc, 
ohne Ausgabe 


opt o+ 

* Dame.OUTPUT.s by * 

* L.M.M. Veugen * 

* Amiga 500, DevPac 2.14 * 

XDEF _DameCalc 
incdir "DP:include/” 
include exec/exec_lib.i 
include libraries/dos.i 
include libraries/dos_lib.i 

* NO output output 

* MST 0.3072 sec 39.60 sec 

* me 0.0754 sec 39.16 sec 
OUTPUT set 0 0 = output / 1 = NO output 

L set 0 left diagonal 
C set 2 vertical 
R set 4 right diagonal 
B set 6 current square 
T set 7 occupied squares 
N set 8 number of bytes per ROW 
NEXT_A2 MACRO 
L set L+N 
C set C+N 
R set R+N 
B set B+N 
T set T+N 
ENDM 

PREV_A2 MACRO 
L set L-N 
C set C-N 
R set R-N 
B set B-N 
T set T-N 
ENDM 

NEXTROW MACRO 
ROW set \3 
IFGE ROW-5 
cmp.b d4,d3 compare d3 to *11111111 
beq.s back\@ no free squares > jump 
ENDC 

moveq #%00000001,dO Start at square Hx 
neuespalte\@ 

move.b d0,dl copy candidate square 
and.b d3,dl AND with occupied squares 
beq.s neuereihe\@ candidate is free >jump 
\1 * ROc) 

add.b dO,dO square to the left 
bcc.s neuespalte\@ not beyond left border >jump 
back\@ 

PREVA2 

move.b B(a2),d0 restore current square 
IFNE ROW-2 

move.b T-N(a2),d3 restore occupied squares 
ENDC 

bra.s \2 * R(k-l) 

NEXTA2 
neuereihe\@ 
move.b dO,B(a2) 
movem.w L-N(a2),dl/d2/d3 
or.b dO,dl occupied squares down-vertical 
or.b d0,d2 

Isr.b #l,d2 occupied squares down-left 
or.b d0,d3 

add.b d3,d3 occupied squares down-right 
IFNE ROW-7 skip at ROW 7 
movem.w dl/d2/d3,L(a2) 

ENDC 

or.b d2,d3 


Dame.OUTPUT.s Assembler-Source von 
DameCalc. aber mit 
Ausgabe (dasselbe wie 
»Dame.s«, nur Makro 
OUTPUT gesetzt) 

generate script-Datei, die »Dame- 

Test« und »DameTest. 
OUTPUT« zusammen¬ 
setzt 

Das C-Programm »DameTest.c« wurde mit 
dem Lattice-C-Compiler V5.04 kompiliert und 


or.b dl,d3 all occupied squares 
IFNE ROW-7 skip at ROW 7 
move.b d3,T(a2) 

NEXT_A2 

ENDC 

ENDM 

REGS REG dl-d7/a0-a6 

_DameCalc 
movem.l REGS,-(sp) 
lea DOSname(pc),al 
moveq #0,d0 
CALLEXEC OpenLibrary 
tst.l dO 
beq nolibrary 
move.l d0,a6 
jsr _LVOOutput(a6) 
lea out(pc),aO 
move.l dO,(aO) 
move.l d0,dl 
lea CLSText(pc),a0 
move.l a0,d2 
moveq Itl,d3 
jsr _LV0Write(a6) 
lea Data(pc),a2 

lea 6*N+B(a2),a3 points to R0W_7 
moveq #-l,d4 compare to d3 
moveq #0,d5 counter positions 

51 moveq #*00001000,dO ; Start at square El > 

; squares Dl,CI,Bl,Al 

RI add.b dO,dO 
bcs aus 

move.b dO,B(a2) 
move.b d0,d2 

Isr.b #l,d2 occupied squares down-left 
move.b d0,d3 

add.b d3,d3 occupied squares down-right 
movem.w dO/d2/d3,L(a2) 
or.b d2,d3 

or.b d0,d3 all occupied squares 
move.b d3,T(a2) 

NEXTA2 

52 NEXTROW R2,R1,2 

53 NEXTROW R3,R2,3 

54 NEXTROW R4,R3,4 

55 NEXTROW R5,R4,5 

56 NEXTROW R6,R5,6 

57 NEXTROW R7,R6,7 

58 cmp.b d4,d3 d3 = *11111111 ==> no 8th queen 
bne.s treffer unequal ==> jump 

move.b T-N(a2),d3 
bra.s R7 back to ROW 7 

treffer 
addq.w #2,d5 
IFEQ OUTPUT 
bsr.s darstellung 
move.b B(a2),d0 output corrupts dO 
ENDC 

move.b T-N(a2),d3 
bra.s R7 back to ROW 7 

m 


die Assemblerroutine »Dame.s« mit DevPac 
V2.14 übersetzt. Die folgende Tabelle zeigt die 
Übersetzungsanweisungen. Ö 


; lc DameTest.c 
genim2 Dame.s -1 

blink FROM LIB:c.o DameTest.o Dame.o TO 

DameTest LIB LIB:lc.lib LIB:amiga.lib 
genim2 Dame.OUTPUT.s -1 
blink FROM LIBic.o DameTest.o Dame.OUTPUT.o 
TO DameTest.OUTPUT LIB LIB:lc.lib 
LIB:amiga.lib 


addq.b #1,2(aO) 
cmpi.b #"9"+l,2(aO) 
bne.s schreibend 
move.b #"0\2(a0) 
addq.b #l,l(a0) 
schreibend? 
move.l a0,d2 
move.l d5,dl 
moveq #16,d3 
ENDM 

Board dc.b 'OOOOOOOx',10 
dc.b '000000x0',10 

dc.b ' 00000 x 00',10 

dc.b '0000x000',10 
dc.b '000x0000',10 
dc.b '00x00000',10 
dc.b '0x000000', 10 
dc.b 'X0000000',10 
darstellung 

move.w d5,-(sp) save d5 
move.l out(pc),d5 
moveq #9,d6 
moveq #7,d7 
lea Board+8*9(pc),a5 
movea.l a3,a4 
eor.b d4,d3 invert bits 
runde 

moveq #0,d2 Index to row, Start at ROW "0" 

1$ 

sub.w d6,d2 increment ROW 
add.b d3,d3 

bcc.s 1$ no bit found ==> jump 
ext.l d2 

move.w d2,-(sp) save d2 for mirrorboard 

add.l a5,d2 

move.l d5,dl 

moveq #9,d3 

jsr _LV0Write(a6) 

move.b (a4),d3 get byte with Position queen 
subq.l #N,a4 already point to previous row 
dbra d7,runde 
ANZAHL 

jsr _LVOWrite(a6) 
mirror 

lea 8*2(sp),a4 sp before saving 8 * d2 
moveq #7,d7 
lea Board-l*9(pc),a5 
runde2 

move.w -(a4),d2 index -1*9 + END Board --> 

neg.w d2 +1*9 + START Board, etc 

ext.l d2 

add.l a5,d2 

move.l d5,dl 

moveq #9,d3 

jsr _LVOWrite(a6) 

dbra d7,runde2 

ANZAHL 

lea 8*2(sp),sp restore sp 
move.w (sp)+,d5 restore d5 
jmp _LVOWrite(a6) 
out dc.l 0 

Data ds.b 8*(2+2+2+1+1) 

CLSText dc.b 12 
DOSname DOSNAME 

Anzahl dc.b 'OOO.te Stellung',10 © 1993 m&t 

»Dame_Output.s«: Das Programm 
inklusive Ausgaberoutine 



aus 

move.l a6,al 
CALLEXEC CloseLibrary 
nolibrary 
movem.l (sp)+,REGS 
moveq #0,d0 
rts 

ANZAHL MACRO 
lea Anzahl(pc),a0 
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TIPS & TRICKS 



Prog ramm op ti m i e rung 


Taktzähler 


Das Programm »Taktik.asm« ist die optimale Lösung im Kampf um Taktzyklen 
und Geschwindigkeitsoptimierung. Es mißt die Ausßhrungszeit der in der Test¬ 
schleife eingesetzten Befehle, und dies auf den Taktzyklus genau. 



von Gerold Steffens 


M an kann sich mit dem unten vorge¬ 
stellten Programm (»Taktik.asm«) 
über die Taktzahl eines einzelnen Be¬ 
fehls oder aber einer etwas längeren Befehls¬ 
folge informieren. »Taktik.asm« erfüllt einen 
ähnlichen Zweck wie eine Taktzyklentabelle. 
Es lassen sich aber auch einige überraschende 
Feststellungen machen. 

In den normalen Takttabellen steht z.B. bei 
den Multiplikations- und Divisionsbefehlen, 
daß es sich um Maximalwerte handelt. Die 
meisten Programmierer, darunter auch Profis 
wie J.A.Toebes VIII (siehe AMIGA 3/90), die 
in Zeitschriften über Programmoptimierung ge¬ 
schrieben haben, nehmen als Taktzahl für Be¬ 
fehle wie 

MULU #10,DO , MULU #40,DO 
oder 

MULU #640,DO 

diesen Maximalweil an. In diesem Fall wären 
das 74 Takte. Anschließend führt man zur Be¬ 
schleunigung eine Ersatzroutine mit Shift- und 
Additionsbefehlen vor. Diese hätten im obigen 
Fall rund 32. 38 bzw. 46 Takte. Nun verkauft 
man dem staunenden Leser die Differenz von 
28 bis 42 Takten als riesige Zeitersparnis. Bei 
einer genauen Untersuchung mit dem Pro¬ 
gramm »taktik« erfährt man aber, daß obige 


Multiplikationsbefehle nur 46 statt 74 Takte 
verbrauchen. Reingewinn somit 0-14 Takte, 
und der Aufwand hat sich kaum gelohnt. Ins¬ 
besondere wenn man bedenkt, daß die Ersatz¬ 
routine ein zusätzliches Register zum Rechnen 
benötigt. 

Befehlszeiten: viele 

• • 

Uberrasch u ngen 

Sollte man z.B. aus irgendwelchen Gründen 
eine Multiplikation mit 999 benötigen, ver¬ 
braucht der Befehl 
MULU #999,DO 

genau 58 Takte. Ich empfehle es jedem als 
Übungsaufgabe, dieses mit den Shift- und Ad¬ 
ditionsbefehlen zu simulieren. Und sollte es ei¬ 
nem gewieften Programmierer gelingen, diese 
Zeit zu unterbieten (was ich nicht glaube ), so 
schlage ich ihm als Verbesserung den Befehl 
MULS #999,DO mit nur noch 50 Takten vor. 
Hier dürfte dann auch der letzte Experte seinen 
Löffel abgeben. Ein weiteres interessantes Un¬ 
tersuchungsobjekt sind die Bitmanipulations¬ 
befehle. Die Befehle 
BSET #1,D0 

und 

BSET #21,DO 

benötigen 10 bzw. 12 Takte. Bei genauerer Un¬ 
tersuchung ergibt sich dann das folgende Bild: 


BSET #xx,DO 

benötigt 10 Takte falls xx im Bereich von 0-15 
liegt und 12 Takte für xx von 16-31. Eine wirk¬ 
liche Überraschung erlebt man bei der Unter¬ 
suchung von Befehlen wie 
MOVE.B $BFDD00,DO 
MOVE.L $BFDD00,DO 
und 

MOVE.L $BFDD00,$BFDD00. 

Anstatt der erwarteten Werte 16.20 und 36 
Takte erhält man nach Überprüfung mit dem 
Testprogramm 30. 40 und 70 Takte. Der Ami- 
ga scheint also diese Befehle auf Vielfache von 
10 aufzurunden. Fügt man noch ein. zwei oder 
drei NOP-Befehle hinzu, so steigt die Ver¬ 
wunderung noch. 

Die Erklärung: der 68000-Prozessor schaltet 
beim Zugriff auf den Peripheriebaustein 8520 
in den synchronen Modus um. und da dieser 
Baustein mit einem Zehntel der normalen 
Taktfrequenz betrieben wird, kommt es zu die¬ 
sen merkwürdigen Zehnersprüngen bei den 
Ausführungszeiten. 

Zum Programm: Als erstes werden alle 
äußeren Einflüsse unterbunden, indem die In¬ 
terrupts und DMA-Zugriffe abgeschaltet wer¬ 
den. Würde man diese nicht abschalten, so 
könnte es zu Unregelmäßigkeiten im Ablauf 
kommen. So kann z.B. ein Interrupt genau 
während des Ablaufs der Testschleife auftreten, 
und wir würden dessen Ausführungszeit mit- 



******** Taktzyklen bestimmen ********* 

Start: 

equ 0 ; 

Register d6 läuft 


*_ 


_* 

ende: 

equ 20 ; 

von Start bis ende 


* Prog.name: 

taktik.s * 





_ 


_* 

; hängt die Testschleife nicht 

von d6 ab, reicht start=ende=0 


* Autor: 

Gerald 

Steffens * 





* Copyright: 

bei mir * 





* Assembler: 

A68k 

* 

;***** hier 

beginnt der Spaß ***** 


* Hardware: 

512K,Kickstartl.2 * 

move.1 

ExecBase,a6 ; 

es wird 


*************************************** 

lea 

dosname.al ; 

die Dos-Library 





jsr 

OldOpenLibrary(a6); 

geöffnet 

ExecBase: 

equ 

4 

move.1 

dO,dosbase ; 

ging alles gut 

OldOpenLibrary: 

equ 

-408 

beq 

abgang ; 

nein, dann Abgang 

CloseLibrary: 

equ 

-414 




Output: 

equ 

-60 

move.1 

d0,a6 

DosBase 

Write: 

equ 

-48 

jsr 

Output(a6) ; 

Output-handle 

Disable: 

equ 

-120 

move.1 

dO,handle ; 

Ausgabe-Datei 



-126 




RawDoFmt: 

equ 

-522 

»Taktik.s«: 

Lin Programm, um I aktzyklen von Routinen zu 

Umlauf: 

equ 

99 ; für 100 Umläufe 

messen und Programme zu optimieren (Anfang) 
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TIPS & TRICKS 


m 


stoppen. Oder die Bildschirm-DMA stiehlt un¬ 
serem armen Prozessor einige Zyklen und wir 
erhalten falsche Ergebnisse. Danach wird der 
Timer A des CIA-B initialisiert und gestartet. 
Hiermit wird die Zeit für die Testschleife ge¬ 
stoppt. Die Differenz zwischen der Zeit für die 
Testschleife und einer Leerschleife ergibt dann 
genau die für die Ausführung der Testbefehle 
benötigte Zeit. 

Messen Sie 
kritische Routinen 

Da die Testschleife lOOmal durchlaufen 
wird, der Zähler aber nur mit einem Zehntel des 
Systemtakts betrieben wird, erhalten wir nach 
einer Division durch 10 die gesuchte Taktzahl. 
Anschließend wird nur noch das Ergebnis aus¬ 
gegeben. 


Das Programm wurde komplett mit dem PD- 
Assembler A68k geschrieben, ist sehr kurz und 
läßt sich schnell starten. Es sollte auf jedem an¬ 
deren Assembler ebenfalls ohne Änderungen 
laufen. 

Man gibt in der Testschleife seinen Befehl 
oder aber seine zu testende Befehlsfolge ein. 
assembliert und linkt mit »A68k taktik.s« und 
»Blink taktik.o« das Programm, und hat so 
schon nach dem Aufruf von »Taktik« die ge¬ 
suchte Taktzahl auf dem Bildschirm. 

Solange die Testbefehle weniger als 6000 
Takte verbrauchen (und das ist eine ganze 
Menge), treten keine Probleme auf. Da der Ti¬ 
mer aber mit Wortbreite arbeitet, kann es bei 
noch längeren Befehlsfolgen zu einem Über¬ 
lauf kommen. Durch das Abschalten des ge- 
sammten DMA (direct memory access) kann es 
bei längeren Befehlsfolgen zu einem Flackern 
des Monitorbildes kommen. 


Achtung: Das Programm paßt nicht unbe¬ 
dingt in die Multitasking-Umgebung, da es al¬ 
le Interrupts und DMA-Vorgänge sperrt. Es 
handelt sich um einen echten Hardwarehack 
und man sollte am besten keine wichtigen Ar¬ 
beiten parallel zu diesem Programm laufen las¬ 
sen, insbesondere der Disketten- und Festplat¬ 
tenbetrieb sollten unterbleiben, wenn man kei¬ 
nen Datenverlust erleiden möchte. Dieses Tool 
ist eher für Profis gedacht. Anfänger sollten die 
Finger davon lassen. Die Benutzung des Pro¬ 
gramms erfolgt auf eigene Gefahr, der Autor 
übernimmt keinerlei Haftung bei irgendwel¬ 
chen Schäden. 

Keine Angst, ich hatte noch keinerlei Pro¬ 
bleme mit dem Programm!! Ansonsten viel 
Spaß. Noch ein Tip: Assembler und Pro¬ 
gramm hält man am besten im RAM und ist so 
mit wenigen Tastendrücken vom Editor beim 
lauffähigen Programm (und umgekehrt). ■ 


move.l #8tart,count 

loop: 

move.l ExecBase,a6 

jsr Disable(a6) 

warte: 

move.l $dff004,d7 

andi.l #$0001ffff,d7 

lsr.l #8,d7 

cmpi.l #310,d7 

bne.s warte 

move #$0200,$dff096 

move.1 count(pc),d6 

move «Umlauf,d7 

lea $bfd000,a6 

move.b #$00,$e00(a6) 

move.b #$ff,$400(a6) 

move.b #$ff,$500(a6) 

move.b #$01,$e00(a6) 


; Interrupts 
; sperren 

; um ein Flackern 
i des Monitor zu 
; unterbinden wird 
; auf Zeile 310 
; gewartet 

; DMA aus 


; Hardwarebasis 
; Timer A stop 
; Low 

; High und speichern 
; Start 


.****•*•**»* Testschleife »*♦********■ 

d0-d5 und a0-a6 
stehen zur freien Verfügung 
d6 durchläuft die Werte Start - ende 
d7 nicht benutzen, weil Zähler 


testloop: 

; *** hier Testbefehle einfügen *** 

; *** hier Testbefehle einfügen *** 

; *** hier Testbefehle einfügen *** 

mulu d6,d0 

; weitere interessante Befehle und passende Werte 

; mulu #640,dO ; 0-0 

; bset d6,d0 ; 0-20 

; lsl d6,d0 ; 0-70 

l move.b $bfdd00,d0 


dbra 

d7,testloop 


lea 

$bfd000,a6 


move.b 

#$00,$e00(a6) 

; Timer A stop 

move 

$500(a6),d7 

; High holen 

move.b 

$400(a6),d7 

; Low holen 

move 

#$8200,$dff096 

; DMA ein 

movem.1 

d0-d5/a0-a6,-(a7) 

; sichern 

move.1 

ExecBase,a6 

; Interrupts 

jsr 

Enable{a6) 

; erlauben 


addi 

#107,d7 

; Zeit einer Leerschleife 

neg 

d7 

; 

add 

#2,d7 

; Korrektur ( Rundung ) 

ext.l 

d7 


divu 

#10,d7 

; Taktzahl justieren 

lea 

datas,al 

; Puffer für die Werte 

move. 1 

count(pc),(al)+ 

; Zählerwert 

ext.l 

d7 

? und 

move.1 

d7,(al) 

; Taktzahl 



; eintragen 

move. 1 

ExecBase,a6 


lea 

formatstr(pc) ,a0 

; Formatstring 

lea 

datas(pc),al 

i Data-Puffer 

lea 

prog(pc) ,a2 

; Hilfsroutine 

lea 

buffer(pc),a3 

l Ausgabepuffer 

jsr 

RawDoFmt(a6) 

; Werte verarbeiten 

move.1 

handle(pc), dl 

; Output-handle 

move.1 

#buffer,d2 

; Ausgabepuffer 

move.1 

textend(pc),d3 


sub.l 

#buffer,d3 

; textlänge 

move.1 

dosbase(pc),a6 


jsr 

Write(a6) 

; Text ausgeben 

movem.1 

(a7)+,d0-d5/a0-a6 

; restaurieren 

addq.1 

#1,count 

; Zähler + 1 

move.1 

count(pc),d6 

; 

cmpi.1 

#ende,d6 

; Zähler<=ende? 

ble 

loop 

; weiter-» « 

move.1 

dosbase(pc),al 

l Dos-Library 

move.1 

ExecBase,a6 

; wieder 

jsr 

CloseLibrary(a6) 

; schließen 

abgang: 



moveq 

#0, dO 


rts 



; *** Hilfsroutine *** wird von RawDoFmt aufgerufen 

prog: 



move.b 

dO,(a3)+ 


clr.b 

(a3) 


move.1 

a3,textend 


rts 



count: 

dc.l 0 


dosbase: 

dc.l 0 


handle: 

dc.l 0 


textend: 

dc.l 0 


datas: 

dc.l 0 



dc.l 0 


buffer: 

ds.b 100 



dosname: dc.b "dos.library",0 

even 

formatstr: dc.b "nr: %81d takte= %51d",10,0 

end © 1993 M&T 

»Taktik.s«: Ein Programm, um Taktzyklen von Routinen zu 
messen und Programme zu optimieren 
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TIPS & TRICKS 


Systemfunktionen umlenken 


Patch und Purge 


Verbotene Sachen sind immer reizvoll. 
Und eigentlich gehört das Umbiegen 
von Systemfunktionen zu den übel¬ 
sten Techniken in einem Multitasking¬ 
system wie dem Amiga. Dennoch hier 
ein schönes und praktisches Beispiel , 
wie man die DOS-Funktionen mani¬ 
puliert, um Z-B. mehr Sicherheit in sei¬ 
ne Datensammlungen zu bekommen. 


von Diel mar Craul 


W ir stellen Ihnen im folgenden zwei 
Programme vor, die Ihnen die Ver¬ 
sionsverwaltung von Programmen 
erheblich vereinfachen. Gerade für Program¬ 
mierer sind beide Tools nützlich, da es immer 
wichtig ist. die aktuellste Version eines Pro- 
grammtexts etc. zu kennen. 

Das erste Programm »VPatch.c« ändert 
(»patcht«) die »DOS.library« derart, daß bei ei¬ 
nem Überschreibversuch einer Datei immer 
neue Versionen erzeugt werden und ein Lese¬ 
versuch auf die Datei grundsätzlich auf die 
höchste Version erfolgt (Ausnahmen siehe De¬ 
tailbeschreibung). Das zweite Programm »Pur¬ 
ge. c« erleichtert den Umgang mit den unter¬ 


schiedlichen Datei Versionen nochmals: Es be¬ 
arbeitet den Inhalt von einzelnen Verzeichnis¬ 
sen bis zu kompletten Volumes und löscht al¬ 
le alten Versionen einer Datei, wobei immer 
die älteste gefundene Version in eine »001«- 
Version umbenannt wird. 

Anwendung des »VPatch«-Programms: 

»VPatch« ist von CLI/Shell lauffähig und er¬ 
wartet als Parameter den Namen einer »Ex¬ 
tensionsdatei«. In ihr stehen die Dateiendun¬ 
gen, für die Versionen erzeugt werden sollen, 
ln der Datei muß für jede Endung eine neue 
Zeile verwendet werden. Beispiel : 

,c 

. txt 
.asc 

Zur Anpassung des Programms an eigene 
Wünsche muß man eine Textdatei (z.B. mit Ed. 
MEmacs, etc.) erstellen und dort die Dateien¬ 
dungen eintragen, für die Versionen erstellt 
werden sollen. Jede Endung darf max. 79 Zei¬ 
chen umfassen. 

Das Programm sollte mit run/runback aus 
der Shell gestartet werden, um die Shell wie¬ 
der freizugeben. Der Patch wird aufgehoben, 
indem man VPatch nochmals startet. 

Der Patch berücksichtigt nur Dateien mit ei¬ 
ner bestimmten Endung (s.o). Wird so eine 
Datei gesichert, fügt der Amiga eine neue Ver¬ 
sionsnummer in den Dateinamen ein und zwar 


nach folgendem Muster: 

<Dateiname>.<Version>.<Endung> 

Die Version wird eingefügt, da manche Pro¬ 
gramme die Endung des Datei namens benöti¬ 
gen (z.B C-Compiler => ».c«). 

Man kann auch gezielt bestimmte Versionen 
überschreiben, wenn man die Versionnummer, 
wie dargestellt, in den Dateinamen einfügt. 

Will man neue Versionen erzeugen, muß 
man immer den gleichen Dateinamen ohne 
Versionsnummer angeben (z.B. »test.c«). 

Um eine Datei mit mehreren Versionen zu 
lesen, gibt es zwei Möglichkeiten: 

- man gibt die Versionsnummer, wie be¬ 
schrieben, an - diese Version wird geladen. 

- man gibt den ursprünglichen Dateinamen 
(ohne Versionsnummer) an, die höchste vor¬ 
handene Version wird geladen. 

Falls manche Programme beim Speichern 
abfragen, ob Sie die bestehende Datei ersetzen 
wollen, ist das zu bestätigen, es wird trotzdem 
eine neue Version erzeugt. 

Das Patchen erweist sich besonders bei 
evolutionären Entwicklungen (Quellcodes, 
Layouts, 3-D-Objekte) als nützlich. 

Anmerkung: Zu jeweils allen Versionen ei¬ 
ner Datei wird eine Hilfsdatei »<name>.vers« 
angelegt, welche die höchste vorhandene Ver¬ 
sionsnummer enthält. Falls alte Dateiversionen 
gelöscht werden sollen, sollte man nie den »de- 
Iete«-Befehl, sondern immer das »Purge«- 


linclude <stdio.h> 
iinclude <stdlib.h> 

Iinclude <string.h> 

Iinclude <dos.h> 

Iinclude <exec/exec.h> 

Iinclude <intuition/intuition.h> 

Iinclude <proto/dos.h> 

Iinclude <proto/exec.h> 

extern BPTR _asm newopen(register _dl char *,register _d2 long); 

extern BPTR _asm newlockfregister _dl char *,register _d2 long); 

void main(int,char **); 

extern struct DosLibrary ‘DOSBase; 

extern struct ExecBase *SysBase; 

APTR oldOpen.oldLock; 

/‘ Struktur, um Verwaltungsdaten für Extensionen aufzunehmen */ 
typedef struct 
{ char extension[80]; 

long length; 

) VINFO; 

VINFO *info; 
long anzahl; 

void main(int arge,char **argv) 

{ struct IntuiMessage send,*receive; 
struct MsgPort *port; 

BPTR file; 
char buffer[80]; 
int i=0; 

VINFO *inf ; 

/* Message-Port "VPort" vorhanden? Dann Msg Klasse Oxffffffff senden */ 
if (port=FindPort("VPort")) 

{ send.Class=Oxffffffff; 

PutMsglport,(struct Message*)isend); 

FPuts(Output(),"D0S-0pen() u. D0S-Lock() Patch aufgehoben\n"); 
return; 


) 

eise 

( if (arge!=2) 

{ FPuts(Output!),"FORMAT : vpatch <Parameterdatei>\n"); 
return; 

) 

/* angegebene Parameterdatei einiesen */ 
if (fi1e=0pen(argv[1],M0DE_0LDFILE)) 

{ while (FGets(file,buffer,79)) 

{ if (strcmp(buffer,”\n")) /* Keine Leerzeile */ 

{ inf=info; /* "reallocO" von Hand ... *1 

if (inf 0 =AllocVec((i+1)*sizeof(VINFO),MEMF CLEARIMEMF PUBLIC)) 

{ CopyMem(inf,info,i*sizeof(VINFO)); 

FreeVec(inf); I* ... und dann Daten einkopieren */ 

strcpy((*(info+i)).extension,buffer); 

(*(info+i)),length=strlen(buffer)-l; 

(*(info+i)).extension[(*(info+i)).length]='\0'; 

i++; 

) 

eise 

{ FreeVec(info); 

FPuts(Output(),"Kein freier Speicher für Extensionsliste\n"); 

Close(file); 

return; 

) ) ) 

anzahl=i; 

/* Message-Port einrichten, Vektoren verbiegen und auf spezielle 
Message warten, dann Vektoren wiederherstellen und Programm beenden. */ 
if (port=CreateMsgPort()) 

{ port->mp_Node.ln_Name="VPort"; 

AddPort(port); 

»Patch.c«: Mit diesem Tool ändern Sie die DOS.library, 
um automatisch Sicherheitskopien abzulegen (Anfang) 
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Programm verwenden. Durch die Möglichkeit, 
selektiv Dateiversionen zu erstellen, bleibt 
dem Benutzer die größtmögliche Entschei¬ 
dungsfreiheit im Versionsmanagement, außer¬ 
dem gibt es keine Probleme, wenn Devices 
(z.B. »CON:«, oder »PRT:«) mit »OpenO« 
geöffnet werden. VPatch sollte nie während ei¬ 
ner I/O-Operation gestartet werden! 

Funktion des VPatch-Programms: 

Das Programm richtet, falls noch nicht vor¬ 
handen, einen Message-Port ein, der dazu 
dient, das Programm nach nochmaligem Auf¬ 
ruf zu beenden, andernfalls wird durch diesen 
Message-Port an das bereits laufende Patch- 
Programm eine Message verschickt, welche die 
Beendigung des laufenden Programms veran¬ 
laßt. Danach wird die Parameterdatei ausgele¬ 
sen und die darin vermerkten Endungen und ih¬ 
re Länge in einem Strukturarray festgehalten. 


Als zweites werden mit »SetFunctionQ« die 
Betriebssystemfunktionen auf die eigenen Rou¬ 
tinen »verbogen«, dann wartet das Programm 
auf das Eintreffen der Message. Daß das Pro¬ 
gramm im Speicher steht, vereinfacht die Auf¬ 
hebung des Patches und ist unter C auch ein¬ 
facher, als die Routinen in einen reservierten 
Speicherbereich zu kopieren (-> Linker !). 

Die Funktion »newOpen()« stellt zuerst fest, 
ob der Dateiname eine der gültigen Endungen 
hat. Ist das der Fall und eine neue Datei soll er¬ 
zeugt werden (MODE_NEWFILE), wobei kei¬ 
ne Versionnummer angegeben ist, ermittelt das 
Programm die neue, höchste Versionsnummer, 
verändert den Dateinamen und speichert die 
höchste Versionsnummer in einer Hilfsdatei. 

Der Lesevorgang (MODE_OLDFILE) er¬ 
folgt ähnlich: Die Funktion liest die höchste 
Versionsnummer aus der Hilfsdatei und ver¬ 
ändert den Dateinamen entsprechend, voraus¬ 


gesetzt, es wurde keine Version angegeben. In 
allen anderen Fällen wird der betreffende Da¬ 
teiname nur »durchgestellt«. 

Aus dieser Vorgehensweise ergibt sich auch 
ein Problem: Der Patch kann keine Versionen 
von Dateien verwalten, die von Programmen 
erzeugt werden, die eine Datei im sog. Modus 
MODE_READWRITE öffnen, weil hier die 
Aktion nicht einwandfrei bestimmbar ist. 

Die »newLock()«-Funktion arbeitet ähnlich, 
sie versucht grundsätzlich (unabhängig von der 
Dateiendung), zu einer Datei die höchste vor¬ 
handene Version zu ermitteln und ein Lock zu 
erhalten (wieder vorausgesetzt, es wurde kei¬ 
ne Versionsnummer angegeben), sonst gleicht 
die Arbeitsweise der »newOpen()«-Funktion. 

Auch aus diesem Ablauf ergibt sich ein Pro¬ 
blem: Versucht ein Programm, auf eine gera¬ 
de geschriebene Datei, bei der Versionen er¬ 
zeugt werden sollen, ein Lock zu bekommen, 


oldOpen=SetFunction((struct Library*)D0SBase,-30,newopen); 
oldLock=SetFunction((struct Library*IDOSBase,-84,newlock); 
FPuts(Output(),"D0S-0pen() u. D0S-Lock() gepatcht\n"); 

Close(file); 
do 

{ receive=(struct IntuiMessage*)WaitPort(port); 

) while (receive->Class!=Oxffffffff); 

FreeVec(info); 

RemPort(port); 

DeleteMsgPort(port); 

SetFunction((struct Library*IDOSBase,-30,oldOpen); 

SetFunction((struct Library*)DOSBase,-84,oldLock); 

) ) 

eise if (tfile) 

FPuts(Output(),"Parameterdatei nicht vorhanden\n"); 

) 

return; 

) 

extern BPTR _asm newopen(register _dl char *name, register _d2 long mode) 
{ char newname[256],hilfe[256],*p; 

BPTR fh; 

short x=0,len,kenn=-l,pos=0,in=0; 

/* Zugriff auf globale Daten, Libraryadressen etc. */ 
geta4() ; 

strcpy(newname,name); 
strcpy(hilfe,name); 

8trcat(hilfe,".vers")j 
len=strlen(name); 

/* Jetzt OpenO wieder auf DOS-Library umstellen */ 

SetFunctionl(struct Library*IDOSBase,-30,oldOpen); 

/* um welche Extension handelt es sich ? */ 
for (x=0;x<anzahl && kenn==-l;x++) 

( if (!strnicmp(newname*(len-(*(info+x)).length),(*(info+x)).extension, 
(*(info+x)).length)) 

( pos=len-(*(info+x)).length; 
kenn=x; 

) ) 

/* Neue Datei => Wenn keine Version angegeben, höchste lesen */ 
if (mode==M0DE_NEWFILE && kenn!=-l) 

( if (p=stpchr(newname,'.')) 

{ /* Versionsnummer vorhanden ? */ 
if (!(x=atoi(p+1))) 

{ if (fh=Open(hilfe,MODE_OLDFILE)) 

( FRead(fh,&x,sizeof(x),1); 

Seek(fh,0,OFFSET BEGINNING); 

) 

eise 

( if (!(fh=Open(hilfe,MODE_NEWFILE))) 
x=1000; 

) 

/* wenn Vers.-Nummer <1000 => Zusatzdatei 'updaten' */ 
if (x<999) 

( in=l; 
x++; 

FWrite(fh,ix,sizeof(x), 1) ; 

Close(fh); 

} 

eise 


return((BPTR)0); 

) ) ) 

/* wie bei MODEJIEWFILE, nur kein update auf Zusatzdatei */ 
eise if (mode==M0DE_0LDFILE ii kenn!=-l) 

( if (p=stpchr(newname,'.')) 

{ if (!(x=atoi(p+1))) 

( if (fh=Open(hilfe,MODE_OLDFILE)) 

{ in=1; 

FRead(fh,&x,sizeof(x),1); 

Close(fh); 

)) fl 

/* Neue Dateinamen mit Versionsnamen erstellen */ 
if (x ii kenn!=-l ii in) 

( sprint f(newname+pos,".%03d",x); 
strcpy(newname+pos+4, (Minfo+kenn)) .extension) ; 

) 

fh=Open(newname,mode); 

/* Datei öffnen, Vektor auf 'newopen' verbiegen, BPTR zurückgeben */ 
SetFunction((struct Library*)DOSBase,-30,newopen); 
return(fh); 

) 

extern BPTR _.asm newlocklregister __dl char *name, register _d2 long mode) 
( BPTR lock,fh; 

char newname[256],hilfe[256],vname[256),*p; 
short Version; 

/* Zugriff auf globale Daten, Libraryadressen etc. */ 
geta4(); 

strcpy(newname,name); 
strcpy(vname,name); 

/* Wenn keine Version angegeben, höchste lesen */ 
if (p=stpchr(newname,'.')) 

{ /* Versionsnummer vorhanden 1*1 
if (!(version=atoi(p+1))) 

{ strcpy(hilfe,p); 
strcat(vname,".vers"); 

/* originale Open()-Funktion, dann Versuch Zusatzdatei mit 
Versionsnummer zu lesen */ 

SetFunction)(struct Library*(DOSBase,-30,oldOpen); 
if (fh=Open(vname,MODE_OLDFILE)) 

( FRead(fh,iversion,sizeof(version), 1); 

Close(fh); 

/* Versionsnummer in Dateiname einfügen */ 
sprintf(p,".%03d",version); 
strcat(newname,hilfe); 

} 

SetFunction((struct Library*)DOSBase,-30,newopen); 

) ) 

/* Lock((-Funktion ausführen den Lock ermitteln, den Vektor wieder 
verbiegen und den Lock zurückgeben */ 

SetFunction((struct Library*)DOSBase,-84,oldLock); 
lock=Lock(newname, mode); 

SetFunctionf(struct Library*(DOSBase,-84,newlock); 
return(lock); 

) © 1993 H&T 

»Patch.c«: Mit diesem Tool ändern Sie die DOS.library, 
uni automatisch Sicherheitskopien abzulegen (Ende) 
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erhält das Programm ein Lock auf die höchste 
Version. Mittels »ExamineQ« auf diesen Lock 
wird dann der Dateiname (mit Versionsnum¬ 
mer) ermittelt. Übernimmt das Programm die¬ 
sen Dateinamen für weitere Schreiboperatio¬ 
nen. können ebenfalls keine Versionen erstellt 
werden, da die Versionsnummer in dem Datei¬ 
namen explizit angegeben wurde. »Beckertext- 
II« arbeitet z.B. auf diese Art. 

Der Patch wurde mit folgenden Programmen 
erfolgreich getestet: LSE (Lattice Screen Edi¬ 
tor). ED. MEmacs Imagine 2.0. Pagestream 2.2 
und GFA-Basic 3.5. 

Anwendung des »Purge«-Programms: 

Das Purge-Programm dient dazu, überflüs¬ 
sige Dateiversionen zu entfernen. Es kann aus¬ 
schließlich von CLI/Shell aus gestartet werden. 


Die Aufrufsyntax : 

- purge [-r] <Datei/P£adname> 

Der Parameter »-r« veranlaßt das Programm, 
alle Verzeichnisse unter dem angegebenen Pfad 
zu durchsuchen. Der Parameter »<Datei/Pfad- 
name>« bestimmt die Versionsgruppen, deren 
alte Versionen entfernt werden sollen. Als Na¬ 
me können Wildcards entspr. den Amiga-DOS- 
Konventionen (OS 2.0) verwendet werden. 

Die bisher höchste Versionsnummer wird 
dann zur Version ».001« umbenannt, z.B.: 

- purge dfO:test.c -> löscht alle Versionen 
von test.c im Stammverzeichnis von dfO: 

- purge dfO:#?.c -> löscht alle alten Versio¬ 
nen von Dateien im Stammverzeichnis von 
dfO:, mit Endung ».c«. 

- purge -r dhO:#? -> löscht in allen Ver¬ 
zeichnissen von DHO: alle alten Versionen. 


Funktion des »Purge«-Programms: 

Das angegebene Verzeichnis wird Eintrag 
für Eintrag gelesen, bei einer Übereinstimmung 
mit dem Dateinamen/-muster wird versucht, 
die Hilfsdatei zu finden, alle alten Versionen zu 
löschen und die älteste Version umzubenennen, 
ebenso erfolgt ein Update der Hilfsdatei. 

Ist der Vorgang erfolgreich, wird das Ver¬ 
zeichnis erneut gelesen, und wie oben verfah¬ 
ren. bis keine Einträge mehr vorhanden sind. 

Ist das Rekursiv-Flag gesetzt und stößt die 
Funktion »scandirf)« auf ein Unterverzeichnis, 
erfolgt ein rekursiver Aufruf mit dem um das 
Unterverzeichnis ergänzten Pfad. Dort wird das 
Verzeichnis erneut abgearbeitet. ■ 

Auf der Diskette /um Heft finden Sie zwei komplette Projektver- 
zcichnissc für den Lattice-C-Compiler. Dies ermöglicht Ihnen, die 
Programme jederzeit neu zu kompilieren, b/.w. die Compileroptionen 
zu erkennen. Beide Programme sind lauffahig ab OS 2,0. 


(tinclude <stdio.h> 

Kinclude <string.h> 

iinclude <exec/exec.h> 

tinclude <proto/dos.h> 

iinclude <proto/exec.h> 

void main(int,char “); 

short _regargs purge(char *,char *); 

void _regargs scandir(char *,char *); 

short recur; 

void mainfint arge,char **argv) 

{ static char path[256],node[256],*filep; 
long len; 
if (large) 
return; 

if (argc==2 44 argv[1][0]== 1 ?') 

( FPuts(Output(),"0SAGE : purge [-r] <file>\n"); 

return; ) 

if (argc==3 44 argv[1][0]' 44 argv[1][1]=='r•) 
recur=1; 

if (filep=FilePart(argv[argc-1])) /* Pfad und Pattern trennen */ 

( len=filep-argv[argc-l]; 
strncpy(path,argv(arge -1],len); 

8trcpy(node,filep); 

scandir(path,node); } ) 

void regargs scandir(char *path,char ’pattern) 

{ static char bu£fer[516],left[256],right[256]; 
char *bufferl,*p; 
struct FilelnfoBlock *fib; 

BPTR lock; 

short 8uccess=l,patt,purged=0; 

/* Zwischenspeicher allokieren */ 

if (! (bufferl=(char *)AllocVec(256,MEMF..CLEARIMEMF^PUBLIC))) 

( FPuts (Output (), "Nicht genug Speichern") ; 

return; ) 

if (!(fib=(struct FileInfoBlock*)AllocVec(sizeof(struct 
FilelnfoBlock),MEMF_CLEARIMEMF PUBLIC))) 

( FPuts(Output(),"Nicht genug Speichern”); 

FreeVec(bufferl); 

return; ) 

patt=ParsePattern(pattern,buffer,512); 
if (lock=Lock(path,ACCESS^READ)) 

{ if (Examine(lock,fib)) 

( while (success) /* Verzeichnis auf Matches prüfen */ 

{ success=ExNext(lock,fib); 

/* Pattern vorhanden ==> Dateinamen vergleichen */ 
if (patt 44 fib->fib_DirEntryType<=0 44 MatchPatternfbuffer, 
fib->fib_FileName)) 

( if (p=stpchr(fib->fib_FileName,'.')) 

{ /* Wenn Punkt im Dateinamen, dann Namenstamm abtrennen 
und versuchen, diese Gruppe zu löschen */ 
memset (left, 0, sizeof (left)) ; 

strncpy(left,fib->fib_FileName,p-(fib->fib_FileName)) ; 
strepy(right,p+4); 
streat(left,right); 
if (purge(path,left)) 

( UnLock(lock); /* Dateien gelöscht, Dir muß "gelockt" werden */ 
if (lock=Lock(path,ACCESS_READ)) 

( Examine(lock,fib); 

success=ExNext(lock,fib); /* ExNext für Volume */ 

} ) ) ) 


/* Name ohne Pattern angegeben und noch kein purge auf das Verzeichnis */ 
eise if (fib->fib_DirEntryType<=0 44 Ipatt 44 Ipurged) 

{ if (purge (path,pattem)) 

( purged=l; 

UnLock(lock); /* Dateien gelöscht ==> neuer Lock */ 
if (lock=Lock(path,ACCESS_READ)) 

( Examine(lock,fib); /* ExNext für Volume */ 

8ucces8=ExNext(lock,fib); )} ) 

, /* Unterverzeichnis und "-r”-Flag angegeben */ 
if (fib->fib_DirEntryType>0 44 recur) 

( strcpy(bufferl,path); /* Pfad retten */ 
8trcat(path,fib->fib_FileName); /* neuer Pfad */ 
streat(path,"/"); /* Slash dazu */ 

UnLock(lock); /* altes Lock freigeben */ 

scandir(path,pattern); /* und Rekursion */ 

strepy(path,bufferl); /* alten Pfad zurück */ 

if (!(lock=Lock(path,ACCESS_READ))) /* und "relock" */ 

. return; } ) ) 

UnLock(lock); ) 

FreeVec(bufferl); /* Speicher freigeben */ 

FreeVec(fib); ) 

short _regarg8 purge(char *path,char *name) 

{ BPTR fh; 

short x,max,purged=0; 

static char substring[256],String[256],help[256],*p; 

strcpy(string,path); 

streat(String,name); 

strepy(help,string); 

streat(help,".vers"); 

if (p=stpchr(string,'.')) 

{ strepy(substring,p); 

if (fh=0pen(help,M0DE_0LDFILE)) /* Versionsdatei öffnen */ 

( FRead(fh,4max,sizeof(max),1); /* höchste Versionsnummer */ 
if (max>l) 

( for (x=max-l;x>0;x--) 

( purged=l; 

sprintf(p,“.%03d",x); /* Dateinamen mit Versionsnr. erstellen */ 
streat(string,substring); 
string[strlen(string)]=0; 

DeleteFile(string); /* Version "x" der Datei löschen */ 
strcpyfhelp,string); 
streat(help," - purged\n"); 

FPuts(Output(),help); ) 

sprintf(p,".%03d",max); 
streat(string,substring); 
strcpyfhelp,string); 

*P='•'; 

*(p+1)='0 1 ; 

*(p+2) = 1 0' ; 

*(P+3) = 'l'; 

Rename(help,string); /* und höchste Version umbenennen */ 
max=l; /* Versionsdatei neu schreiben ("1") */ 

Seek(fh,0,0FFSET_BEGINNING); 

FWrite(fh,4max,sizeof(max),l); ) 

Close(fh); ) ) 

return(purged); 

) © 1993 M4T 

»Purge.c«: Mit diesem hilfreichen Tool bringen Sie 
zusätzlich Ordnung in den Dateiendschungel 
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Zufallsgenerator für die Shell 

Programmierte Fügung 


Egal, ob es sich um eine unerwartete 
Gehaltserhöhung, sechs Richtige im 
Lotto oder um die Bekanntschaft einer 
jungen Dame beim Einkäufen handelt, 
Zufälle bestimmen und bereichern das 
Leben ungemein. 

von Stephan Gramer 


A m Computer - genauer auf DOS-Ebe- 
ne - mußten wir bisher auf einen Luxus 
verzichten: Eine einmal geschriebene 
Batch-Datei verrichtet ihre Arbeit immer auf 
dieselbe Art. Was man ja zugegebenermaßen 
auch von ihr erwartet.... 

Aber es gibt Fälle, in denen man sich ein ge¬ 
wisses Maß an kontrolliertem Chaos wünscht: 
Beispielsweise wenn Sie verschiedene Bild¬ 
schirmschoner oder Workbenchhintergrund- 
grafiken haben, bei denen Sie die Entschei¬ 
dung, welchen bzw. welche Ihr Amiga ver¬ 
wenden soll, lieber Ihrer »Startup-Sequence« 
überlassen möchten - bisher kaum möglich. 

Hier hilft das Assembler-Programm (Seka) 
»Random.s«: Es liefert eine Zufallszahl in ei¬ 
nem von Ihnen vorgegebenen Intervall. Diese 
Zufallszahl kann in einer Environmentvariable 
gespeichert und mittels IF-ELSE-ENDIF-Kon- 
strukten entsprechend verwendet werden. 

»Random« benötigt als Parameter lediglich 
eine Zahl als obere Intervallgrenze. Diese 
kann im Bereich von I bis 255 liegen. Random 


Random >ENV:zufall 5 
If $zufall EQ "000" 

Echo "Hier Prog. f. Zahl 0 aufrufen" 
Endlf 

If $zufall EQ "001" 

Echo "Hier Prog. f. Zahl 1 aufrufen" 
Endlf 

If $zufall EQ "002" 

Echo "Hier Prog. f. Zahl 2 aufrufen" 
Endlf 

If $zufall EQ "003" 


Echo "Hier Prog. f. Zahl 3 aufrufen" 
Endlf 

If $zufall EQ "004" 

Echo "Hier Prog. f. Zahl 4 aufrufen” 
Endlf © 1993 M&T 


»Bsp.bat«: So setzen Sie den Zufalls¬ 
generator in Batch-Dateien ein 


liefert dann eine Zu fallszahl im Bereich von 0 
bis zu der angegebenen Grenze minus eins. So 
kann Random 5 folgende Werte liefern: 

000 001 002 003 004 

Ein einfaches Anwendungsbeispiel zeigt die 
obige Batchdatei »Bsp.bat«. 

Wollen Sie die Zufallszahl nicht nur auf dem 
Bildschirm sehen, sondern in einer Variable 
speichern, müssen Sie das wie folgt angeben: 
Random >ENV:Zufallsvariable 5 

Das ist eine einfache Umleitung der Ausga¬ 
be von Random in die Datei Zufallsvariable im 
Verzeichnis »ENV:«. Das CLI verlangt, daß 
diese Umleitung als erster Parameter nach dem 
Programmnamen folgt. Damit das CLI die Da¬ 


tei als Variable erkennen kann, muß das Ziel¬ 
verzeichnis »ENV:« sein. 

Random liefert das Ergebnis immer als drei¬ 
stellige Ziffer, ggf. mit führenden Nullen. Mit 
»Random ?« oder bei fehlerhafter Angabe der 
oberen Grenze erhalten Sie eine Kurzbe¬ 
schreibung des Befehls. Im letzteren Falle lie¬ 
fert Random den Wert FAIL ans CLI zurück. 

Die Variable kann dann, wie aus dem Bei¬ 
spiel ersichtlich, mit einer Konstruktion wie 
If $Zufallsvariable EQ " 000 " 

; Was soll getan werden, wenn 0? 

Endlf 

verarbeitet werden. 

Das »$«-Zeichen vordem Variablennamen si- 
gnaliesert dem IF-Befehl, daß er hier die Va¬ 
riable Zufallsvariable aus dem »ENV:«-Ver- 
zeichnis überprüfen soll. 

Zum Programm: Nach dem Öffnen der 
»Dos.library« werden die Parameter geprüft 
und ggf. eine Fehlermeldung gedruckt (Diese 
würde übrigens auch in der Variable landen). 
Ging alles glatt, wird die Position des Elektro¬ 
nenstrahls gelesen und aus dieser eine Zufalls¬ 
zahl im erlaubten Bereich berechnet und diese 
ausgegeben. (Es ist hier nicht möglich eine 
»mathematische« Zufallszahlenroutine zu ver¬ 
wenden. da Random ja nur eine Zufallszahl lie¬ 
fen und dann beendet wird. Das Programm 
würde dann immer nur die gleiche Zufallszahl 
liefern.) Achtung: Ältere Versionen von IF 
können zum Teil nichts mit Environmentva¬ 
riablen anfangen. In diesem Fall müßten Sie 
sich eine neuere Version besorgen. ■ 


l* Random [>Dest:] Max/S von Stephan Gromer 


ExecBase = 4 
OldOpenLibrary=-408 
CloseLibrary =-414 
Output =- 60 
Write =- 48 
RETURN_0K = 0 
RETURJLFAIL = 20 
main: 

movem.l aO/dO,-(sp) 


move.l ExecBase.w,a 6 
lea dosnamelpcj.al 
jsr 01d0penLibrary(a6) 
move.l d 0 ,a 6 
movem.l (sp)+,a 0 /dl 
subq.w # 1 ,dl 
bne.S weiter 
error: 

moveq «RETURN FAIL,d4 
infoout: 

move.l «infotext,d2 ; D2: A Text 

moveq #infotextende-infotext,d3; D3: Länge 
textout: 

jsr Output(a 6 ) 

move.l dO,dl ; Dl:‘Filehandle 

beq.S cant_write 
jsr Write(a 6 ) 
cant_write: 
move.l a 6 ,al 


move.l ExecBase.w,a 6 
jsr CloseLibrary(a 6 ) 
move.l d4,d0 
rts 

weiter: 

moveq #RETURN_üK,d4 
moveq «0,d0; Ergebnis init. 
loop: 
tst.w dl 
beq.S check 
emp.b #'?',(a 0 ) 
beq.S infoout 
subq.w #l,dl 
emp.b #' \(a 0 ) + 
beq.S loop 
sub.b #•0',-1(aO) 
bmi.S error 
emp.b # 10 ,-l(a 0 ) 
bpl.S error 
mulu #10,dO 
add.b -l(a 0 ),d 0 
bra.S loop 
check: 
tst.l dO 
beq.S error 
emp.w #256,dO 
bpi.S error 
moveq # 0 ,dl 

move.w $dff006,dl; Vertical Beam Position 


divu dO,dl 
clr.w dl 
swap dl 

lea randomtext(pc),aO 
move.l a 0 ,d 2 
D2:‘Text 

moveq #randomtextende-randomtext,d3; Länge 

divu # 100 ,dl 

add.b dl, (a 0 ) + 

clr.w dl 

swap dl 

divu # 10 ,dl 

add.b dl, (aO)-*- 

swap dl 

add.b dl,(a 0 ) 

bra textout 

dosname: dc.b "dos.library ",0 
randomtext: 
dc.b " 000 \$a,$d 
randomtextende: 
infotext: 

dc.b "Random Max/S",$a,$d 
dc.b "Returns a randomvaluestring ranging" 
dc.b " from 0 to Max-l",$a,$d 
dc.b "Max can ränge from 1 to 255",$a,$d 
infotextende: ; © 1993 m&t 

»Random.s« erzeugt Zufallszahlen mit 
Hilfe der Rasterstrahlposition 
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TIPS & TRICKS 


Intuition-Programmierung 


Alles Assembler 


Die Handhabung der Systemfunktio¬ 
nen in Assembler ist komplizierter als 
Z.B. in BASIC oder C. Aber dafür er¬ 
hält man superschnelle Programme. 
Hier zeigen wir Ihnen, wie man in As¬ 
sembler mit Fenstern und Menüs etc. 
unter OS 2.0 jongliert. 


von Markus Adamski 


A n dieser Stelle präsentieren wir Ihnen 
ein Assemblerlisting, das den Umgang 
mit dem AMIGA-OS2.0 in bezug auf 
Screens, Windows und einige weitere Features 
für Assembler-Programmierer verdeutlicht. 

Das Programm dient als Ergänzung des As¬ 
semblerkurses im AMIGA-Magazin (Ausgabe 
6/92 bis 1/93). der sich ausschließlich mit Sy¬ 
stem 1.3 beschäftigte. 

Das Source-Listing erklärt sich weitgehend 
selbst. Das Programm wird durch Druck einer 
beliebigen Taste beendet. Das Bild rechts 
zeigt, was herauskommt, wenn Sie das Pro- Alles da: In Assembler kann man wie in BASIC, C oder anderen Programmier 

gramm auf Ihrem Amiga laufen lassen. ■ sprachen Screens mit Menüs und Gadgets programmieren 



* Tips zu OS2.0: * 

* + ListView-Gadget incl. Listenverwaltung * 

* + CheckBox-Gadget * 

* + BitMapScaleO * 

* + Screen & Windows * 

* + Menüs * 

* von Markus Adamski * 

* Assembler: Devpac 2.14D * 


opt c+,ow+,ol+,o3+,o4+,o5+,s- 

incdir "DEVPAC:Includes/" 
include ”exec/exec.i" 
include "graphics/displayinfo.i" 
include "graphics/scale.i" 
include "Intuition/screens.i" 
include "libraries/gadtools.i" 
include "lvo.i" 

STRÜCTURE Internal,0 

APTR _IntBase ; Libraries-Basis-Adressen 
APTR „GadBase 
APTR .GfxBase 

APTR ScrHandle ; -> Screen-Struktur 

APTR WinHandle ; -> Windows-Struktur 

APTR WinRPort ; -> Rastport des Windows 

APTR LV_Gad ; -> ListView-Gadget 

APTR GetVisual ; Ergebnis von GetVisuallnfoAO 

APTR MenuAddr ; Ergebnis von CreateMenusAl) 

APTR GadgetList ; -> Gadget-Liste 

ÜBYTE Flags 

LABEL Int_SIZEOF 

CALL MACRO 

IFEQ NARG-2 ; 2 Werte übergeben ? 

IFND \2 i Ja -> 2. Wert definiert ? 
move.l 4.W,a6 ; Nein -> ExecBase nach a6 


ELSEIF 

move.l \2(a5),a6 ; Sonst Basis auslesen 
ENDC i Bei Übergabe nur eines Wertes 
ENDC ; wird a6 nicht verändert ! 
jsr _LV0\l(a6) ; Aufruf 
ENDM 

OPENLIB MACRO 
lea \l(pc),al 
moveq #\2,d0 
CALL OpenLibrary.EXEC 
move.l d0,\3(a5) 

ENDM 

MEND MACRO 
dc.b \1,0 
dc.l \2,0 
dc.w \3 
dc.l 0,0 
ENDM 

TRDE = -1 
FALSE = 0 
FirstEntry = 0 

lea StrucPtr(pc),a5 ;Zeiger auf eigene Struktur 
;*** Libraries öffnen 

OPENLIB IntName,37,_IntBa8e ; Libraries öffnen 
beq WrongOS 

OPENLIB GadName,37,_GadBase 
beq WrongOS 

OPENLIB GfxName,37,_GfxBase 
beq WrongOS 

;*** Leere Liste erzeugen 
lea Liststruktur(pc),aO ; Leere Liste erzeugen 
move.l aO,LH_TAILPRED(aO) ;LH_TAILPRED->LH_HEAD 
move.l aO,LH_HEAD(aO) ; LH_HEAD -> LH_TAIL 


addq.l #4,LH_HEAD(aO) 

clr.l LH_TAIL(aO) ; LH_TAIL = 0 

;*** Screen öffnen 
lea ScrTags(pc),al ; Screen öffnen 
sub.l a 0 ,a 0 

CALL OpenScreenTagList,_IntBase 
move.l dO,ScrHandle(a5) j Handle merken 
beq NoScreen 

;*** Window öffnen 
lea WinTags(pc),al ; Window öffnen 
move.l dO,ti_Data(al) ;Zeiger->Screen eintragen 
sub.l a0,a0 

CALL OpenWindowTagList 

move.l dO,WinHandle(a5) ; Handle merken 

beq NoWin 

move.l d0,a0 ; Rastport-Adresse holen 

move.l wd_RPort(a0),a0 
move.l aO,WinRPort(a5) ; und merken 
;*** Visuallnfo-Struktur erzeugen 
move.l ScrHandle(a5),a0 ; Visuallnfo-Struktur 
lea VInfo_Tag(pc),al ,• erzeugen 
CALL GetVisuallnfoA, _GadBase 
move.l d0,GetVi8ual(a5) 

;*** Vorbereitung für NewGadgets 
lea GadgetList(a5),aO ;Datenbereich reservieren 
CALL CreateContext ; dO = Zeiger 
;*** ListView-Gadget erzeugen 
lea List_Gad_Tag(pc),a2 ; ListView-Gadget 
lea ListViewStruc(pc),al 
move.l GetVisual(a5),gng_VisualInfo(al) 
move.l d0,a0 ; Erg. von CreateContext)) 

moveq #LISTVIEW_KIND,dO 
CALL CreateGadgetA 

move.l dO,LV_Gad(a5) ; Zeiger auf Gadget merken 

»Intuition_Bsp-asm«: Menüs, Gadgets, 
Screens usw. in Assembler (Anfang) 
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;*** CheckBoxGadget erzeugen 
lea Check_Gad_Tag(pc),a2 ; CheckBox-GadgeC 
lea CheckGadStruc(pc),al 
move.l GetVisual(a5),gng_VisualInfo(al) 
move.l dO,aO ; Erg. von CreateGadgetAO 
moveq #CHECKBOX_KIND,dO 
CALL CreateGadgetA 

;*** Menü erstellen und an Window übergeben 
lea MenuStruct(pc),aO ,- Menü erstellen 
lea MenuTag(pc),al 
CALL CreateMenusA 

move.l dO,MenuAddr(a5) ; Menü-Adresse merken 

move.l dO,aö 

move.l GetVisual(a5),al 

lea LayoutTag(pc),a2 

CALL LayoutMenusA 

move.l WinHandle(a5),aO ; Menü einhängen 
move.l MenuAddr(a5),al 
CALL SetMenuStrip,_IntBase 
;*** Gadgets zeichnen 

move.l WinHandle(a5),aO ; Gadget in Window- 

move.l GadgetList(a5),al ; Struktur eintragen 

moveq #-l,dO 

moveq #- 1 ,dl 

sub.l a 2 ,a 2 

CALL AddGList 

move.l GadgetList(a5),aO ; Gadgets zeichnen 

move.l WinHandle(a5),al 

sub.l a 2 ,a 2 

moveq #-l,dO 

CALL RefreshGList 

move.l WinHandle(a5),aO 

sub.l al,al 

CALL GT_RefreshWindow,_GadBase 

; *** Liste mit Einträgen erzeugen 
I *** AB HIER DARF AO NICHT VERÄNDERT WERDEN ü! 

lea Li 8 tStruktur(pc),aO ; Listenkopf initialisieren 

move.l aO,LH_HEAD(aO) 

add.l #LH_SIZE,{aO) ; LH HEAD -> 1. Node 

clr.l LH_TAIL(aO) 

clr.l LH_TAILPRED(aO) 

clr.w LH..TYPE(aO) 

lea LH_SIZE(aO),aO 

bset #FirstEntry,Flags(a5) ; Erster Eintrag ! 

lea MenuTxt_l(pc),al ; Namen in Liste eintragen 

bsr AddList 

lea MenuTxt_2(pc),al 

bsr AddList 

lea ListStruktur(pc),al ; Leeren Eintrag 
;an Listenende 

move.l al,LN_SDCC(aO) ; LN SOCC -> LH TAIL 
addq.l #LH_TAIL,(aO) 

move.l aO,LH_TAILPRED(al) ; LH_TAILPRED -> Node 
move.l aO,LN_PRED(aO) ; LN_PRED -> LN_S0CC (!) 
sub.l #LN_SIZE+4,4(aO) 
clr.l LN NAME(aO) 

; * BIS HIER DARF AO NICHT VERÄNDERT WERDEN !!! 

;*** ListView-Gadget neu zeichnen 
move.l LV_Gad(a5),aO ,- List an ListView- 
move.l WinHandle(a5),al ; Gadget übergeben 
sub.l a 2 ,a 2 

lea List_Gad_Tag(pc),a3 
CALL GT_SetGadgetAttr 8 A 

;*** BitMap-Bereich vergrößern 
move.l ScrHandle(a5),al ;Struktur initialis., 
lea sc_BitMap(al),al ; in der die Werte zur 
lea ScaleArgs(pc),a0 ; Vergrößerung eines 
move.l al,bsa_SrcBitMap(aO) ;BitPlane-Bereichen 
move.l al,bsa_DestBitMap(aO) ; benötigt 
move.w #240,bsa_SrcX(a0) ;Quell-Bereich links/oben 
move.w #20,bsa_SrcY(a0) 

move.w #180,bsa_SrcWidth(aO) ; Quell-Ausdehnung 
move.w #100,bsa_SrcHeight(a0) 
move.w #10,bsa_DestX(a0) ; Ziel-Bereich links oben 
move.w #130,bsa_DestY(aO) 
move.w #180,bsa_XSrcFactor(a0) .-Vergrößerung als 
move.w #67,bsa_YSrcFactor(aO) ,-Bruch darstellbar: 
move.w #600,bsa_XDestFactor(a0) ;Zähler als Ziel-, 
move.w #60,bsa_YDestFactor(a0) Nenner als Quell- 
move.w #600,bsa_DestWidth(a0) ; Faktor eingetragen 
move.w #89,bsa_DestHeight(aO) ; X: 600/180 = 3.33 
CALL BitMapScale,_GfxBase ; Y: 60/67 =0.89 


;*** Eingabe aus DserMsgPort des Windows lesen 
Eingabe„holen: 

move.l WinHandle(a5),a3 ; OserPort-Adresse des 

move.l wdJJserPort(a3),a3 ; Windows holen 
Message_holen: move.l a3,a0 ,• Message abholen 
CALL GT_GetIMsg,„GadBase 


tst.l dO 
bne.s Auswerten 
moveq #-l,d 0 
CALL AllocSignal.EXEC 
tst.b dO 

bmi.s Messagejiolen 
move.b dO,MP_SIGBIT(a3) 


War eine da ? 

Ja -> auswerten 
Nein -> Signalbit holen 

War eins frei ? 

Nein -> Message holen 
Bit in MessagePort 
move.l ThisTask(a 6 ),MP_SIGTASK(a3) ; Task-Adresse 
clr.b MP FLAGS(a3) ; Reine Flags 

move.l a3,a0 ; Auf Signal warten 

CALL WaitPort 

move.b #PA. .IGNORE,MP_FLAGS(a3) ; Nicht reagieren 
move.b MP._SIGBIT(a3) ,d0 ,- Signalbit holen, 

CALL FreeSignal ; freigeben, 

bra.s Messagejiolen ,- und Nachricht holen 


Auswerten: move.l d0,al 
CALL GT__ReplyIMsg,_GadBase ; Beantwortern 
,-*** Gadgets entfernen 

move.l GetVisual(a5),aO ,- Gadgets entfernen 
CALL FreeVisualInfo,.GadBase 
move.l GadgetList(a5),aO 
CALL FreeGadgets 
;*** Menüs entfernen • 
move.l MenuAddr(a5),aO ; Menüs freigeben 

CALL FreeMenus,_.GadBase 
move.l WinHandle(a5),aO ; Menü entfernen 

CALL ClearMenuStrip,_IntBase 
;*** Fenster schließen 

move.l WinHandle(a5),a0 ; Fenster schließen 

CALL CloseWindow 
;**’ Screen schließen 
NoWin: move.l ScrHandle(a5),a0 
CALL CloseScreen ; Screen schließen 

;*** Libraries schließen 

NoScreen: move.l _IntBase(a5),al ; Libraries zu 
CALL CloseLibrary.EXEC 
move.l _GadBase(a5),al 
CALL CloseLibrary 
move.l _GfxBase(a5),al 
CALL CloseLibrary 

WrongOS: moveq #0,dO ; ENDE 
rts 

*** Name in Liste einhängen *** 

*** aO = Zeiger auf freien Eintrag 
*** al = Zeiger auf String 


AddList: btst #FirstEntry,Flags(a5) ; 1. Eintrag ? 
bne.s 1 $ ; Ja -> Spezialfall 

move.l a0,LN_SUCC(a0) 

add.l #LN_SIZE,(aO) ; LN.SDCC -> Nächste Node 
move.l a0,LN_PRED(a0) ; LN_PRED -> LN_SüCC (!) 
sub.l #LN_SIZE+4,LN__PRED(a0) ;Zeiger um Länge einer 
clr.w LN_TYPE(a0) ; Node auf Vorgänger 

move.l al,LN NAME(aO) ; verkürzen !!! 

lea LN_SIZE(a0),a0 
rts 


1$: bclr #FirstEntry,Flags(a5) 
move.l afl,LN_SDCC(a0) 

add.l #LN_SIZE, (aO) ,- LN_SDCC -> Nächste Node 

move.l aQ,LN_PRED(aO) ; LN^PRED -> LH_HEAD (!) 
sub.l #LH_SIZE+4,LN_PRED(aO) ;Zeiger um Länge eines 
clr.w LN_TYPE(a0) ; List-Kopfes auf den 

move.l al,LN_NAME(aO) ; Vorgänger verkürzen! 

lea LN_SIZE(a0),aO 
rts 


StrucPtr: dcb.w (Int_SIZEOF+l)/2,0 
IntName: dc.b "Intuition.library\0 
GadName: dc.b "gadtools.library “,0 
GfxName: dc.b "graphics.library",0 

ScrTitle: dc.b "Testfenster'',0 

MenuTxt_l: dc.b "Menü-Titel",0 
MenuTxt_2: dc.b "Item-.O 
MenuTxt_3: dc.b "1. Sub-Item\0 


MenuTxt_4: dc.b "2. Sub-Item\0 
even 

WinTags: dc.l WA_CustomScreen,0 
dc.l WAJ,eft,0 
dc.l WA_Top,0 
dc.l WAJfidth,640 
dc.l WA..Height,256 
dc.l WA^Backdrop,TRDE 
dc.l WA_Borderless,TRDE 
dc.l WA.IDCMP,IDCMP VANILLAKEY 
dc.l TAG_DONE 

ScrTags: dc.l SA_Title,ScrTitle 
dc.l SA_Colors,ColorTab 
dc.l SA„Pens,Pens_3D_Struct 
de. 1 SAJJisplaylD, PAL_MONITOR_ID IHIRES. KEY 
dc.l SA_Width,640 
dc.l SA_Height,256 
dc.l SA_Depth,3 
de.1 SA Type,CDSTOMSCREEN 
dc.l SA_DetailPen,7 
dc.l SA_BlockPen,3 
dc.l TAG_DONE 

Pens_3D_Struct: dc.w 0,0,1,7,1,3,1,-1 

ColorTab: dc.w 0,10,10,10 
dc.w 1 , 0 , 0,1 
dc.w 2,15,15,15 
dc.w 3,6,8,11 
dc.w 4,15,15,15 
dc.w 5,0,0,1 
dc.w 6 , 0 , 0,0 
dc.w 7,14,14,14 
dc.w -1 

ListViewStruc: 

dc.w 240,20,180,100 ; x, y, Breite, Höhe 
dc.l 0,Font ; Label, TextAttr 
dc.w 10 ; GadgetID 

dc.l PLACETEXT_IN,0,0 
Li 8 t_Gad_Tag: 

dc.l GTLV Labels,Liststruktur ; Tag für Listview 
dc.l GA_Disabled,FALSE 
dc.l GTLV ReadOnly,FALSE 
dc.l TAG_DONE 
Liststruktur: 

deb.b LH_SIZE+LN_SIZE*17,0 ; Liste für Listview 
CheckGadStruc: 

dc.w 20,20,140,20 ; CheckBox-Gadget 
dc.l 0,Font 
dc.w 11 

dc.l PLACETEXTIN,0,0 

Check_Gad_Tag: 
dc.l GTCB._Checked,TRDE 
dc.l TAG^DONE 

MenuStruct: 

MENÜ NM_TITLE,MenuTxt_l,ITEMTEXT 
MENÜ NM_ITEM,MenuTxt_2,ITEMTEXT 
MENÜ NM_SOB, MenuTxtJ, CHECKED! CHECKIT! MENDTOGGLE 
MENU NM_SDB,MenuTxt_4,CHECKED!CHECKIT!MENDTOGGLE 
MEND NM_END,0,0 
MenuTag: 

dc.l GTMN_FrontPen,2 ; Tags für Menüs 
dc.l GTMN_FullMenu,TROE 
dc.l TAG_DONE 

LayoutTag: dc.l GTMN TextAttr.Font 
dc.l TAG_DONE 

VInfo_Tag: dc.l TAG_DONE ; Tag für GetVisuallnfoAO 

Font: dc.l FontName ; TextAttr-Struktur 
dc.w 9,0 

FontName: dc.b "topaz.font",0 
even 

ScaleArgs: dcb.w 12,0 
dcb.l 6,0 © 1993 M&T 

»Intuition_Bsp.asni«: Menüs, Gadgets, 
Screens usw. - alles in Assembler 
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BASIC mit System 


Freie Auswahl 


a I USER 


Fonts 
Prefs 
BStartup 
Libs 

Expansion 
. info 
Expansion.info 




i 


Parent 


0- »jitcrortüwuMt 


lSj 


topaz.font 


I opaz.font 


ii ! I 


0123*156709 aflbBcCdDeEfF 


Zurück 


Es wurde das Gadget 'Zurück' gedrückt! 

dfe: 

df 0: 

Ok 


U_!_I 

»Komfortabel«: Ein Beispiel für einen File- und einen Font-Requester, wie Sie ihn 
mit der »asl.library« (ab 2.0) selbst programmieren können - in BASIC! 


Mit Hilfe der »asl.library« können Sie 
per BASIC-Programm Font- oder Da¬ 
teiauswahlfenster programmieren, die 
sog. Requester. Wir zeigen Ihnen Bei¬ 
spiele für die gebräuchlichsten Re- 
que stet formen. 

von Ralf Schmidt 


S eit OS 2.0 gibts im Amigabetriebssystem 
standardmäßig die »asl.library« mit vie¬ 
len leistungsfähigen Funktionen für Re¬ 
quester und Fontverwaltung. Hier nun ein paar 
Beispiele, wie Sie die Bibliothek von BASIC 
aus nutzen. Voraussetzung für den Einsatz ist 
die »asl.library« im logischen Laufwerk 
»LIBS:« und Kickstart 2.0! 

Außerdem brauchen Sie für BASIC die 
»bmap«-Datei der »asl.library« im Verzeichnis 
»LIBS:«. Sie finden diese Datei u.a. auf der 
PD-Diskette zu diesem Heft; Sie können die 
Datei aber auch mit dem Listing »MakeAsl- 
Bmap« auf der nächsten Seite selbst erzeugen. 
Das Programm erstellt die Datei »asl.bmap« im 
logischen Laufwerk »LIBS:«, mit deren Hilfe 
AmigaBASIC die Register-Aufrufkonventio¬ 
nen zu jeder Routine in der »asl.library« erhält. 

Hier nun die Programme, die zeigen wie Sie 
einige Requester der »asl.library« nutzen: 

fl »FileRequest.bas« (unten) demonstriert, wie 
man einen AslFileRequester in AmigaBASIC 
und dessen Auswertung realisiert (Bild). 


□ Das nächste Listing »UserFileRequest.bas« 
auf der folgenden Seite zeigt unter Verwen¬ 
dung von sog. Tagitems wie man einen File- 
Requester wie den des ersten Beispiels an ei¬ 
gene Bedürfnisse anpaßt. Versuchen Sie durch 
Andern der einzelnen Parameter das Ergebnis 


zu ändern und Ihren eigenen Wünschen anzu¬ 
passen. 

n Das letzte Programm »FontRequest.bas« öff¬ 
net einen Requester zur Auswahl von Fonts aus 
dem logischen Laufwerk »FONTS:«. So kön¬ 
nen Sie z.B. Schrift für einen Text wählen. ■ 


REM - Das Programm zeigt, wie man ein 

REM - File-Requester mit der ASL.Library (OS2.0) 

REM - in AmigaBASIC realisiert. 

REM - »asl.bmap« in LIBS: erforderlich 

LIBRARY "asl.library" 

DECLARE FUNCTION AllocFileRequesti LIBRARY 
DECLARE FUNCTION RequestFilei LIBRARY 
DECLARE FUNCTION FreeFileRequesti LIBRARY 

Reque8tS=AllocFileRequestSc 'Asl File-Requester-Struktur 
Erg&=RequestFile&(Request&) 'Auswahl zeigen, Bdg auswerten 

IF Erg&=0 THEN 'Prüfen ob 'CANCEL' gedrückt wurde 
PRINT "Es wurde das Gadget 'CANCEL' gedrückt!" 

END IF 

File&=PEEKL(Request&+4) 'Adresse des File-Namens herausfinden 
Dir&=PEEKL(Request4+8) 'Adresse des dir(pfad)-Namens finden 

GOSUB eingabeauswerten 'File- und Pfadname in Strings wandeln 

fehler&=FreeFileRequest4(Requesti) 'Struktur freigeben 

PRINT Dir$ 'Name des Pfades 

PRINT File$ 'Name des Files 

PRINT Pfadfile$ 'beide zusammen 


LIBRARY CLOSE 
END 

eingabeauswerten: 

File$="" 

readfile: 

byte=PEEK(File&) 

IF byte=0 THEN fileend 
File$=File$+CHR$(byte) 

File4=File&+l 
GOTO readfile 

fileend: 

Dir$="" 

readdir: 

byte=PEEK(Dir&) 

IF byte=0 THEN dirend 
Dir$=Dir$+CHR$(byte) 

Diri=DirS+l 
GOTO readdir 

dirend: 

IF Dir$="" THEN Pfadfile$=File$:RETURN 
IF RIGHT$(Dir$,1)=":"THEN Pfadfile$=Dir$+File$:RETURN 
Pfadfile$=Dir$+"/"+File$ 

RETURN ' © 1993 M&T 

»Filerequest_asl.bas«: AmigaBASIC nutzt in diesem Bei¬ 
spiel die »ASL.library«, um einen Filerequester darzustellen 


Faszination Programmieren Nr.2 


59 







































F f 

TIPS & TRICKS 



1 





REM - Dieses Demo-Programm zeigt, wie man einen File-Requester 

REM - mit der asl.library (OS2.0) und AmigaBASIC unter 

REM - Verwendung von Tagitems an eigene Bedürfnisse anpaßt. 

LIBRARY "asl.library" 

LIBRARY "exec.library" 

DECLARE FUNCTION AllocAslRequestS LIBRARY 

DECLARE FUNCTION RequestFilei LIBRARY 

DECLARE FUNCTION FreeFileRequesti LIBRARY 

DECLARE FUNCTION AllocMemi LIBRARY 

DECLARE FUNCTION FreeMemi LIBRARY 

REM ** Tagitems definieren ** 

TagUseri =-2147483648# * HEX=$80000000 (AmigaBASIC kennt 

ASLDummyi=TagUseri+524288i ' HEX=$80000 nur vierst.Hex-Zahlen) 

TagDonei =0 

ASLHaili = ASLDummyi+1 : ASLDiri = ASLDummyi+9 

ASLPATTERNi = ASLDummyi+10 : ASLOKTexti = ASLDummyi+18 

ASLCancelTexti= ASLDuimnyi+19 

TitelText$ ="BasicFileRequester"+CHR$(0) 

DirName$ ="df0:"+CHR$(0) 

OKText$ ="Laden"+CHR$(0) 

CancelText$ =''Zurück"+CHR$(0) 

Patter$ ="#?.info"+CHR$(0) 

memi=AllocMemi(50,1) ' 50 Byte dürften ausreichen 

IF memi=0 THEN PRINT "Kein Speicherplatz mehr frei ?!":END 

REM “Tagitems“ “Adressen der Texte“ 

PÖKEL memi,ASLHaili :POKEL memi+4,SADD(TitelText$) 

PÖKEL memi+ 8 ,ASLDiri :POKEL memi+12,SADD(DirName$) 

PÖKEL memi+16,ASLOKTexti :PÖKEL memi+20,SADD(OKText$) 

PÖKEL memi+24,ASLCancelTexti :PÖKEL memi+28, SADD(CancelText$) 

PÖKEL memi+32,ASLPATTERNi :POKEL memi+36,SADD(Patter$) 

PÖKEL memi+40,TagDonei 

typei=0 '0 = FileRequester, 1 = FontRequester 
Requesti=AllocAslRequesti(typei,memi) 

REM Asl File-Requester-Struktur besorgen 

Ergi = RequestFilei(Requesti) 

REM Dateiauswahlbox anzeigen und Bedienung auswerten 

IF Ergi=0 THEN 'Prüfen ob 'ZURÜCK' gedrückt wurde 

PRINT "Es wurde das Gadget 'Zurück' gedrückt!" 

END IF 

Filei=PEEKL(Reque8ti+4) 'Adresse des file-namens herausfinden 
Diri=PEEKL(Requesti+ 8 ) 'Adresse des dir(pfad)-namens finden 

GOSUB eingabeauswerten 'File- und Pfadname in Strings wandeln 
fehleri=FreeFileRequesti(Requesti) 'Requester-Struktur freigeben 

PRINT Dir$ 'Name des Pfades 

PRINT File$ 'Name des Files 

PRINT Pfadfile$ 'beide zusammen 

gurui=FreeMemi(memi,50) 

LIBRARY CLOSE 

END 

eingabeauswerten: 

File$="" 

readfile: 

byte=PEEK(Filei) 

IF byte=0 THEN fileend 

File$=File$+CHR$(byte) 

Filei=Filei+l 

GOTO readfile 
fileend: 

Dir$="" 

readdir: 

byte=PEEK(Diri) 

IF byte=0 THEN dirend 

Dir$=Dir$+CHR$(byte) 

Diri=Diri+l 

GOTO readdir 
dirend: 

IF Dir$="" THEN Pfadfile$=File$:RETURN 

IF RIGHTS(Dir$,l)=":"THEN Pfadfile$=Dir$+File$:RETURN 
Pfadfile$=Dir$+"/"+File$ 

RETURN © 1993 MIT 

»Funtrequest_a.sl.bas«: So programmiert man einen Font¬ 
Requester mit Hilfe der »asl.library« 


REM - Dieses Demo-Programm zeigt, wie man einen Font- 
REM - Requester mit der asl.library (OS2.0) und AmigaBASIC 

REM - unter Verwendung von Tagitems anwendet. 

LIBRARY "asl.library" 

LIBRARY "exec.library" 

DECLARE FUNCTION AllocAslRequestS. LIBRARY 

DECLARE FUNCTION RequestFilei LIBRARY 

DECLARE FUNCTION FreeFileRequesti LIBRARY 

DECLARE FUNCTION AllocMemi LIBRARY 

DECLARE FUNCTION FreeMemi LIBRARY 

REM ** Tagltems definieren ** 

TagUseri =-2147483648# 'HEX=$80000000 (AmigaBASIC kennt nur 

ASLDummyi=TagU8eri+524288i 'HEX=$80000 nur vierst. HEX-Zahlen) 
TagDonei =0 

ASLHaili = ASLDummyi+1 : ASLDiri = ASLDummyi+9 

ASLFontNamei = ASLDummyi+10 : ASLFontHeighti= ASLDummyi +11 

ASLOKTexti = ASLDummyi+18 : ASLCancelTexti= ASLDummyi+19 

TitelText$ ="BasicFontRequester"+CHR$(0) 

OKText$ ="Laden''+CHR$(0) 

CancelText$ ="Zurück"+CHR$(0) 

FontName$ ="topaz.font"+CHR$(0) ' Vorgabe 

Heighti =11 ' Vorgabe 

memi=AllocMemi(50,1) ' 50 Byte dürften ausreichen 

IF memi=0 THEN PRINT "Kein Speicherplatz mehr frei ?!":END 

REM “Tagltems** “Adressen der Texte** 

PÖKEL memi,ASLHaili :POKEL memi+4,SADD(TitelText$) 

PÖKEL memi+ 8 ,ASLOKTexti :POKEL memi+12,SADD(OKText$) 

PÖKEL memi+16,ASLCancelTexti :PÖKEL memi+20,SADD(CancelText$) 

PÖKEL memi+24,ASLFontNamei :POKEL memi+28,SADD(FontName$) 

PÖKEL memi+32,ASLFontHeighti :POKEL memi+36,Heighti 

PÖKEL memi+40,TagDonei 

typei=l '0 = FileRequester, 1 = FontRequester 
Reque 8 ti=AllocAslRequesti(typei,memi) 'Asl Font-Req.-Struktur 
Ergi=RequestFilei(Requesti) 'Fontauswahl zeigen, Bdg auswerten 

IF Ergi=0 THEN 'Prüfen ob 'ZURÜCK' gedrückt wurde 

PRINT "Es wurde das Gadget 'Zurück' gedrückt!" 

END IF 

Fonti=PEEKL(Requesti+ 8 ) 'Adresse des Font-Namens herausfinden 
Heighti=PEEKW(Requesti+12) 'FontHöhe herausfinden 

GOSUB eingabeauswerten 'FontName in String wandeln 
fehleri=FreeFileRequesti(Requesti) 'Struktur freigeben 

PRINT "Fonthöhe "Heighti 

PRINT "Fontname "Font$ 
gurui=FreeMemi(memi,50) 

LIBRARY CLOSE 

END 

eingabeauswerten: 

Font$="" 

readfont: 

byte=PEEK(Fonti) 

IF byte=0 THEN RETURN 

Font$=Font$+CHR$(byte) 

Fonti=Fonti+l 

GOTO readfont ' © 1993 M&T 

»Fontrequest_asl.bas«: So programmiert man einen Font¬ 
Requester mit Hilfe der »asl.library« 


REM Erstellt die 'asl.bmap 1 Datei im logischen Laufwerk •LIBS: 
OPEN ”LIBS:asl.bmap" FOR OUTPUT AS #1 
FOR t= 0 TO 55 
READ x$ 

x$="iH"+x$ : x%=VAL(x$) 

yi=yi+x% 

PRINT#l,MKI$(x%); 

NEXT 

CLOSE #1 

KILL "LIBS:asl.bmap.info" 

IF yi<\o>1075711i THEN 

PRINT "In den Datazeilen liegt ein Tipfehler vor!!" 


ELSE 

PRINT "Die 'asl.bmap' befindet sich jetzt im logischen Laufwerk 'LIBS:'" 
END IF 

DATA 416C,6C6F,6346,6960,6552,6571,7565,7374,00FF.E200 
DATA 4672,6565,4669,6065,5265,7175,6573,7400,FFDC,0900 
DATA 5265,7175,6573,7446,6960,6500,FFD6,0900,416C.6C6F 
DATA 6341,7360,5265,7175,6573,7400,FPD0,0109,0046,7265 
DATA 6541,7360,5265,7175,6573,7400,FFCA,0900,4173,6052 
DATA 6571,7565,7374,00FF,C409,0A00 ; © 1993 MiT 

»Makeasl.bas«: Die »asl.bmap« ist Voraussetzung zur Nut¬ 
zung der »asl.library« - basteln Sie die Datei ggf. selbst 
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Richtig dokumentieren 


Des Programmierers 

Programme zu dokumentieren, ist etwas Schönes, wenn man es nicht seihst ma- 
chen muß. Oft kommt man als Programmierer aber nicht daran vorbei, Pro- / f 

gramme zu beschreiben - und sei es nur für persönliche Informationen, damit / 

man nach ein paar Wochen noch versteht, wie man eine Aufgabe gelöst hat. / / 


Leid 



von Matthias Straß 


E ntwickelt man größere Programme, ist 
es unerläßlich, eine Dokumentation zu 
führen, um einen Überblick über deren 
Funktionen zu gewährleisten. Vielleicht hat 
man schon in zurückliegenden Projekten Un¬ 
terprogramme geschrieben, die man später, bis 
auf kleine Änderungen, gut gebrauchen könn¬ 
te - schade, wenn man dann nicht mehr weiß, 
wie der Algorithmus funktioniert. 

Aber was gehört in eine Dokumentation? 
Meist macht man sich keine Gedanken und 
nimmt mal diesen, mal jenen Punkt auf. Wenn 
es drauf ankommt, stellt sich dann heraus, daß 
oft gerade das Entscheidende vergessen wurde. 
Nach Jahren Erfahrung möchte der Autor hier 
ein Konzept vorstellen, um Dokumentationen 
schnell und einheitlich zu gestalten: 

Dokumentationsformulare: 

Die zentrale Rolle spielen Formulare. Trotz 
ihres bürokratischen Beigeschmacks bieten sie 


den Vorteil, daß man sich auf das Ausfüllen 
konzentrieren kann, da die Felder schon vor¬ 
gegeben sind - jeder kann sich bestimmt an 
Formulare erinnern, in denen er die Felder 
»Name«, »Vorname«, »Straße« und viele 
mehr ausfüllen mußte. j 

Was hat das mit Dokumentation zu tun? / 
Ganz einfach: Für die Beschreibung eines / 
Moduls oder einer Funktion legt man ein- / 
mal Formulare an, die man für jedes Mo- / 
dul (jede Funktion) kopiert, ausfüllt 
und sammelt, ln diesen Formularen stehen ^ 
die alle Informationen, die der Programmierer 
benötigt, um sich in einem Modul zurechtzu¬ 
finden (»Modul« im Sinne einer Sammlung lo¬ 
gisch zusammenhängender Funktionen). 

Wie angedeutet, sind es zwei Formulare: das 
eine zur Beschreibung eines Moduls, das an¬ 
dere als Dokumentation einer Funktion. Beim 
Verwenden der Formulare sparen Sie viel 
Tipparbeit, die sonst nötig wäre, um allein den 
Satz an Feldbezeichnern einzugeben. Hiermit 
sind Feldnamen wie »Funktionsname:«, »Da¬ 
tum:«. »Beschreibung:« usw. gemeint. 


Ein Formular besitzt als weitere Eigen¬ 
schaft. daß sämtliche Felder immer in dersel¬ 
ben Reihenfolge angeordnet sind. Wir statten 
unser Formular also ein einziges Mal mit den 
wichtigsten Felder aus, sortieren sie so. daß das 
Wichtigste am Anfang steht und legen es als 
Datei ab. Die Felder selbst markieren wir sin¬ 
niger Weise mit einem Fragezeichen. Lücken. 


• ... 


ÄJRJI .: ????.C 

EXFORT FNKT; 

????.C - ? 

EXPORT VARS: 

•i’i’i’i Q . ■) 

IMPORT FNKT: ? 

IMPORT VARS: ? 

WICmiG....: ? 

EOKU . : ? 


STATUS . : < > Actual 

< > Released 

<X> Cbanging 

< > Version update 

HIST,'BUGS..: Vers/TT-fflH-JJ/Wer 

Was 

0.00/? /? 

Ersterstellung 


AinoR.s ; 

COPYRIGHT..: (C) 1993 


UMGEBUNG...: ? 

/.*.... ., 

/*.options */ 


INCLUDES • 

amiga */ 

std_c •/ 
- module ’t 

TYPEDEFS V 
? •/ 

? */ 

' DEFINES */ 
■ ’ */ 


/*.......MACROS V 

I ...-. ? */ 


»dehne W)D_???? 

/•. 

»include <exec/types.h> 


.. EXPORT •/ 

/■. functions •/ 

/*. variables •/ 

/••**”••*.*..... IMPORT V 

/*. functions V 

/*. variables •/ 

I . INTERN •/ 

•. functions •/ 

/*. variables */ 

/• ... 

....... IMPLEMENTATION 

/• 

GRUPPE: ? 


RÜCKGABE...: ? 


BEDINSUtC.. 

? 


FUNKTIONEN. 

? 


VARIABLEN.. 

? 


EOKU. 

j 


LÖSUNG. 

? 


HIST/BUGS.. 

Vers/TT-MMM-JJ/Ker 

Was 


0.00/? /? 

Ersterstellung 


/• ? V 




/•H!S!t!!«S!SääSt8»SS3iSSt?8!ä!!*g!:!?!St!iSSSS end of .TOdule ???? V 

Beispiel: Unser Formular für den Modulkopf, das Sie für 
jedes neue Programm einsetzen können 
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die sich beim ersten Ausfüllen zwangsläufig er¬ 
geben, können, wenn die fehlenden Informa¬ 
tionen vorhanden sind, einfach erkannt werden 
- durch das »?« hinter dem Feldbezeichner. 

Werfen wir einen Blick auf ein solches For¬ 
mular - z.B. auf das der Modul-Dokumentati¬ 
on (siehe Abbildung). Hier wird, so hoffen wir, 
jedem klar, was mit »Feldbezeichner« bzw. mit 
den »Fragezeichen«, die das dazugehörige 
»Feld« markieren sollen, gemeint ist. 

Mit Sicherheit ist Ihnen schon die eigenwil¬ 
lige Stellung und Schreibweise der einzelnen 
Überschriften (MAKE, options, INCLUDES, 
amiga, usw.) aufgefallen. Die Stellung am 
äußerst rechten Rand hat zum Grund, daß ge¬ 
rade die linke Seitenhälfte mit Text (nämlich 
dem Programm-Code) ziemlich ausgelastet 
ist. Also kann das Auge auf der weniger »be¬ 
schriebenen« rechten Seite viel schneller In¬ 
formationen identifizieren. Es ist z.B. wesent¬ 
lich leichter, den so markierten Beginn und Ab¬ 
schluß einer Funktion auszumachen - probie¬ 
ren Sie es aus! Aus dieser Positionierung folgt 
auch, daß man auf großartige Rahmungen (die 
üblichen Sternchenkästen um Überschriften) 
verzichten kann, denn die Rahmen sind einzig 
und allein dazu da, dem Auge einen Blickfang 
für die wichtigen Punkte zu verschaffen. An 
sonsten kosten sie nur Mühe und Platz. 

Die Strichstärke (sprich: Zeilen aus »###«, 
»***«, »===« oder »—«) und die Groß- und 
Kleinschreibung sollen unterschiedliche Hier¬ 
archien der Überschriften verdeutlichen (dem 
Auge zur Hilfe). Das ganze Verfahren mag 
dem einen oder anderen etwas fremd Vorkom¬ 
men - macht nichts, probieren Sie es einfach 
einmal aus. Wir garantieren Ihnen, daß Sie von 
mal zu mal besser mit dem Dokumentieren vor¬ 
ankommen und sich, auch nach einer ganzen 
Weile, noch gut und schnell in Ihren Program¬ 
men zurechtfinden. 

Der einzige Pferdefuß bei der Sache ist noch, 
daß die Zeilen noch von Hand so »nachjustiert« 
werden müssen, daß sie schön bündig am rech¬ 
ten Rand (Spalte 79) stehen - es sei denn. Ihr 
Editor unterstützt Sie mit umfangreichen Ma¬ 
krofunktionen. 

Die Formulare können leicht den einzelnen 
Sprachen und natürlich Ihren individuellen Be¬ 
dürfnissen angepaßt werden. Das einzige, was 
man wissen muß, ist, welche Zeichen in der be¬ 
treffenden Sprache einen Kommentar öffnen 
und schließen. Denn diese Formulare sollen als 
Kommentar mit im Quell-Code stehen. 

Einige Sprachen bieten eine komfortable Lö¬ 
sung an, die lediglich ein öffnendes und ein 
schließendes Kommentarzeichen erfordert, z.B. 
-CoderAREXX: /* und */ 

- PASCAL: { und } 

Die folgenden Sprachen besitzen lediglich 
einen Kommentarbeginn, weswegen hier jede 
Zeile des Formulars mit einem Kommentar¬ 
zeichen eingeleitet werden muß: z.B. für 

- BASIC: REM bzw. ’ 

- Assembler: * bzw. ; 

Die Formulare werden fix und fertig in einer 
Datei gespeichert. Feldinhalte, die sich nie än¬ 
dern, z.B. Ihr Name als Autor, sollten gleich 
mit gespeichert werden. 


Verwendung: 

Um das Ausfüllen der Formulare möglichst 
effektiv zu gestalten, sollte man sich von sei¬ 
nem Editor kräftig helfen lassen (Makros). z.B. 
beim Hereinkopieren des Formulars. Es kön¬ 
nen. bequemerweise, Fragezeichengruppen ge¬ 
bildet werden, die als Platzhalter an den ver¬ 
schiedensten Stellen in den Formularen stehen, 
aber immer mit demselben Text ersetzt werden 
sollen (siehe »????« für den Modulname oder 
»??« für den Namen der Funktion). Sie sollten 
tunlichst zuerst die langen Gruppen ersetzen... 

Die restlichen Fragezeichen springt man mit 
der Suchfunktion an und ersetzt sie durch die 
entsprechenden Informationen. 

Ausfüllen automati¬ 
sieren 

Wer beim Betrachten des Modulformulars 
Felder mit den Bezeichnungen »PRO¬ 
GRAMM-NAME«, »PROJEKT«, usw. ver¬ 
mißt. sollte sich bewußt sein, daß diese in ei¬ 
nem MODUL nichts zu suchen haben - Mo- 
dule sollen schließlich unabhängig von ir¬ 
gendwelchen Programmen sein! 

Versions-Nummern: 

Bevor wir beginnen, die einzelnen Felder zu 
erklären, reißen wir kurz das Thema Versions- 
Nummern an. Wir finden es auf jeden Fall 
sinnvoll, Versions-Nummern gezielt zu verge¬ 
ben. Man kann sie nicht nur für komplette Pro¬ 
gramme vergeben (Ed 2.00), sondern auch für 
Texte. Module und Funktionen. Durch Versi¬ 
ons-Nummern wird eine gewisse Fortentwick¬ 
lung zum Ausdruck gebracht. Wir schlagen für 
die Vergabe von Versionsnummernfolgende 
Definition vor: 

Eine Versions-Nummer besteht aus drei 
Ziffern: »X.YZ« (z.B. »1.15«): 
lJ »X«: Die erste Ziffer sagt etwas über die 
Fortentwicklung aus. Befindet sich z.B. ein 
Modul im Entwicklungsstadium, sollte hier ei¬ 
ne »0« vergeben werden. Ist es soweit, daß man 
das Modul anderen zur Verfügung stellen 
kann, d.h., daß es ausgetestet wurde und stabil 
läuft, vergibt man die Version »I .(X)«. Hat sich 
einiges durch Erweiterungen, Verbesserungen 
und Fehlerbeseitigungen verändert, erfolgt die 
Freigabe als Version »2.(M)«, usw. Dieses Set¬ 
zen der Versions-Nummer wird im Modul mit 
dem Zustand »Versions-Update« gekenn¬ 
zeichnet (siehe Feld »ZUSTAND«), 
fl »Y«: Die Ziffer wird beim Beseitigen mit¬ 
telschwerer Fehler oder beim Einführen effizi¬ 
enterer Algorithmen hochgezählt, automatisch 
setzt man die letzte Ziffer »Z« auf »0«. 

□ »Z«: Hochzählen bei Korrektur kleinerer 
Fehler oder bei »kosmetischen« Änderungen. 

Die Felder des Modulkopfs: 

Betrachten wir aber nun einmal die Felder 
des Modulformulars: 

~l MODUL: (Modulname) 

Aussagekräftiger Name der Datei, in welcher 
das Modul steckt. 


"1 EXPORT FNKT: (exportierte Funktionen) 

EXPORT VARS: (exportierte Variablen) 

Funktionen bzw. Variablen in diesem Mo¬ 
dul, »die ich nach außen weitergebe« (expor¬ 
tiere). Diese stehen anderen Modulen zur Be¬ 
nutzung offen; das Fragezeichen im Beispiel- 
listing vor dem Bindestrich ist durch den Na¬ 
men dieses Moduls, das zweite durch den 
Funktionsnamen bzw. durch Typ + Name der 
Variable zu ersetzen. 

Weswegen hier Modul- und Funktionsname 
aufgeführt werden, hat einen praktischen 
Grund: Zum Beispiel arbeiten Sie gerade an ei¬ 
nem Modul namens »EinAusgabe« und schrei¬ 
ben die Funktion »Sortlnput«. Dazu benötigen 
Sie die Funktion »SortArrayO«, die im Modul 
»Sort« steht, d.h., die durch dieses Modul ex¬ 
portiert wird. 

Also holen Sie sich das Modul »Sort« in den 
Editor und kopieren den unter »EXPORT 
FNKT« stehenden Eintrag »SORT.C - Sort¬ 
ArrayO» in Ihr aktuelles Modul. Natürlich nicht 
irgendwo hin. sondern an diejenigen Stellen 
des Modul- und Funktionskopfes, die mit 
»IMPORT FNKT« (siehe nächster Punkt) ge¬ 
kennzeichnet sind. 

Der vorangestellte Modulname verweist auf 
die Quelle der Funktion, wo ich nähere Infor¬ 
mationen finden kann. Leider hat die Sache ei¬ 
nen Haken: Trotz aller Logik und Umsicht 
kann es Vorkommen, daß ich Module zerlegen 
muß. vielleicht schon einfach deswegen, weil 
sie zu groß geworden sind - man geht von ca. 
1000 Zeilen pro Modul aus. 

Was macht man jetzt mit meinen schönen 
Verweisen auf die Funktions-Quellen? 

Man könnte sämtliche Module nach dem Na¬ 
men des zerlegten Moduls durchsuchen und für 
die betroffenen Funktionen die Quellenangabe 
ändern (Replace-Funktion). Zu beachten ist, 
daß auch die eine, alte »#include«-Direktive 
durch neue Anweisungen zu ersetzen ist - für 
jedes neue Modul eine. Diese Lösung ist jedoch 
nur praktikabel, wenn es sich um relativ weni¬ 
ge Module handelt. 

Eine weitere, nicht so aufwendige Möglich¬ 
keit bietet sich, wenn man die neu entstande¬ 
nen Module ins ursprüngliche Modul durch 
»#include«-Direktiven einbindet. Als Inhalts¬ 
verzeichnis (für die. vom Aufspalten betroffe¬ 
nen Module) kopieren Sie den hier beschrie¬ 
benen Teil des Modulkopfs (EXPORT 
FNKT/VARS) der entstandenen Module unter 
die jeweilige »#include«- Anweisungen. So er¬ 
halten Sie die logische Einheit des ursprüngli¬ 
chen Moduls. Vorteil dieser Methode ist. daß 
sämtliche »#include«-Direktiven in alten Mo¬ 
dulen bestehen bleiben können. 

lI Analoges wie für die beschriebenen Impor¬ 
te gilt für exportierte Variablen: 

IMPORT FNKT: (importierte Funktionen) 

IMPORT VARS: (importierte Variablen) 

Aus welchen anderen Modulen verwendet 
dieses Modul welche Funktionen oder Varia¬ 
blen (Gegenstück zu EXPORT); aus oben ge¬ 
nannten Gründen verwendet man auch hier das 
Paar: Modulname - Funktionsname() bzw. Typ 
+ Variblenname. 
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□ WICHTIG: Wichtige Mitteilung: »Pro¬ 
gramm läuft stabil«, »Fehler in Funktion xy() 

- Auf nach Indien..«, usw. 

lI DOKU: (Dokumentation) Beschreibung des 
Moduls. Was macht das Modul, d.h., welche 
Art von Funktionen enthält es. Besonderheiten? 

□ STATUS: Ein Kreuz in einem oder mehre¬ 
ren Feldern kennzeichnet den Bearbeitungszu¬ 
stand eines Moduls oder einer Funktion: 

- <X> Released, Modul/Funktion wurde frei¬ 
gegeben. es gab keine Änderungen 

- <X> Version-Update, lediglich die Versions- 
Nummer wurde auf einen »runden« Wert ge¬ 
bracht (z.B. im Zuge der Freigabe). 

- <X> Actual. Modul/Funktion ist aktuell und 
lauffähig. 

- <X> Changing. Modul/Funktion wird gera¬ 
de geändert und ist evtl, nicht lauffähig. 

fl HIST/BUGS (History - Entstehung und Feh¬ 
ler): Die Entstehungsgeschichte des Moduls in 
Verbindung mit der Fehlerdokumentation. Ent¬ 
sprechend den Änderungen wird der ZU¬ 
STAND und die Versions-Nummer angepaßt. 

Zum einen wird hier beschrieben, wann, wer 
an welchen Funktionen Änderungen vorge¬ 
nommen hat. und mit einem Stichwort, was 
geändert wurde - Genaueres findet man dann 
bei der jeweiligen Funktion. 

Zum anderen werden Fehler, die beim Te¬ 
sten des Moduls aufgetreten sind, dokumen¬ 
tiert. Gerade, wenn Tester und Programmierer 
nicht ein und dieselbe Person sind, können die 
Fehler an dieser fest definierten Stelle be¬ 
schrieben werden. Dabei wird die fehlerhafte 
Version, das aktuelle Datum, das Namenskür¬ 
zel (s. AUTOR) und eine Fehlerbeschreibung 
eingetragen. Neue Fehler, wie auch neue Pro¬ 
grammversionen werden jeweils ÜBER den al¬ 
ten beschrieben (das Aktuellste immer oben). 

□ AUTOR: Name des Autors und sein Na¬ 
menskürzel in eckigen Klammern. Weitere Au¬ 
toren werden hier angefügt. 

□ UMGEBUNG: Welche Sprache, Compiler. 
Assembler oder Linker wurde verwendet. Evtl. 
Besonderheiten des Entwicklersystems, welche 
die Modulfunktionen beeinflussen könnten. 

Modulaufbau: 

Um im Modul selbst Ordnung zu halten, 
kann es in die, in der Abbildung vorgeschla¬ 
genen Untereinheiten (INCLUDES, TYPE- 
DEFS. DEFINES. usw.) aufgeteilt werden. 

Diese Unterteilung können nach eigenen 
Wünschen als Formular aufgebaut, gespeichert 
und, wie beschrieben, benutzt werden. 

Übersichtlichkeit gewinnt die Aufteilung, 
wenn die einzelnen Überschriften, wie im Bei¬ 
spiel-Modul »STRINGS.C« geschehen - als 
dicke Balken (z.B: /*##...#### INCLUDE */) 
abgesetzt werden. Des weiteren sollten in ei¬ 
nem Modul nur diejenigen Teile dokumentiert 
werden, die auch wirklich vorhanden sind. 

Das gilt auch für die Felder der hier vorge¬ 
stellten Formulare - um keine Mißverständ¬ 


nisse aufkommen zu lassen: Im Formular 
selbst bleiben natürlich alle Felder erhalten, 
aber für den einzelnen Modulkopf bzw. für ei¬ 
ne spezielle Funktion können Sie sich die Frei¬ 
heit nehmen, unbenutzte Felder zu löschen. 

Die Funktionsdokumentation: 

Die Aufgabe einer Funktionsdokumentation 
ist es, dem Benutzer (auch dem Autor!) einen 
schnellen und kompletten Überblick über die 
Funktion zu verschaffen. An einer Funktion in¬ 
teressiert den Benutzer meist weniger, wie sie 
tatsächlich implementiert wurde. Aus diesem 
Grund ist für eine effektive Nutzung eine gute 
Schnittstellenbeschreibung unerläßlich. 

Sie fängt beim Namen der Funktion an: Aus 
praktischen Gründen kürzt man die Funkti¬ 
onsbezeichner oft ab, relativ selten kommen 
dabei wirklich »sprechende« Abkürzungen zu¬ 
stande. Vorteilhaft ist es, wenn der Benutzer 
sich unter einer Abkürzung etwas - und zwar 
das Richtige - vorstellen kann. Ein typisches 
Beispiel wäre eine Funktion »Tab2Blnk()«: Als 
Kommentar gehört hier, obwohl diese Abkür¬ 
zung recht einleuchtend ist (oder nicht ?), der 
Name im Klartext dahinter, also etwa »Couvert 
Tabulators into Blanks«. 

Die beim Aufruf der Funktion benötigten Pa¬ 
rameter bilden den zweiten Punkt in einem der¬ 
artigen Interface: Zunächst sollte man für jeden 
verwendeten Parameter eine neue Zeile spen¬ 
dieren; eine gute Namensgebung hilft dem Be¬ 
nutzer. die Funktion richtig zu verwenden. 

Um beim Beispiel zu bleiben: Bei einer Pa- 
rameterliste »Tab2Blnk (String 1. String2)« 
kann man nicht auf Anhieb sagen, in welchem 
der beiden Zeichenketten die Tabulatoren er¬ 
setzt werden. Das wird eindeutiger, wenn Sie 
schreiben: »Tab2Blnk (SourceString, New- 
String)« - verwenden Sie bei den Funktions¬ 
parametern Abkürzungen, sollten Sie diese 
natürlich auch erklären. 

Abschließend gehört zu jeder Parameterbe¬ 
schreibung noch ein Kommentar, in dem fol¬ 
gendes geklärt wird: Was bedeutet die (evtl, 
verwendete) Abkürzung, welche Funktion hat 
der Parameter, welche Werte kann er besitzen. 

Auf den Rückgabewert, den einige vielleicht 
schon vermissen, kommen wir gleich zu spre¬ 
chen; zuvor erst einmal eine kurze Zusam¬ 
menfassung: Die Beipielfunktion sieht bisher 
folgendermaßen aus (C-Syntax): 
int Tab2Blnk /* convert Tabulators 
into Blanks */ 

(char *SrcStr /* Source String - original 
String, to be converted */ 
,char *NewStr /* New String - string 
with all tab's converted */ 

) 

Vergleicht man dies mit dem zweiten Teil 
des Funktionsformulars, beginnend mit der 
Zeile 

? ?? /* ? */ 

stellt man fest, daß anstelle jedes Fragezeichens 
ein wohldefinierter Texte zu finden ist. 

Der Funktionskopf: 

So bedeutet das erste Fragezeichen in der er¬ 
sten Zeile den Rückgabetyp der Funktion, das 


Doppelfragezeichen wird durch den Funk¬ 
tionsnamen und das letzte durch den Funk¬ 
tionsnamen im Klartext (bei Abkürzungen) er¬ 
setzt. Betrachten wir nun die nächsten Zeilen: 

? /* ? */ 

,? /* ? */ 

,? /* ? */ 

Sie sind für die Parameterliste gedacht. Das 

erste Fragezeichen wird durch den Typ + Na¬ 
me der Variable ersetzt, das Fragezeichen in 
den Kommentarzeichen steht für die oben er¬ 
läuterte Kurzbeschreibung. Daß das Komma 
vor dem Fragezeichen der nächsten Zeile steht, 
erleichtert im Bedarfsfall das Vervielfältigen 
der Zeile. Hat eine Funktion z.B. fünf Para¬ 
meter, wird diese Zeile eben zweimal kopiert. 

Prototypen: 

Benötigen Sie, wie es in C der Fall ist, Pro¬ 
totypen für die Funktionsdeklaration, müssen 
Sie lediglich den eben erstellten Routinen-Kopf 
kopieren, ihn an der gewünschten Stelle einfü- 
gen und einen Strichpunkt hinter die schließen¬ 
de Klammer setzen - fertig ist der Prototyp, 
vergleichen Sie bitte den Prototypen mit der 
Funktionsdefinition im Modul »STRING.C«. 

Man könnte den Prototyp der obigen Funk¬ 
tion auch wie folgt deklarieren: 
int Tab2Blnk (char*, char*); 

Nun, entscheiden Sie selbst, welcher von 
beiden der nützlichere ist. 

Übersicht: Was 
macht die Funktion? 

Die Funktionsdokumentation ist gegliedert 
in Dokumentation, Funktionskopf und Funkti¬ 
onsrumpf. Kopf und Rumpf sollten nicht durch 
die Dokumentation getrennt werden, denn oft¬ 
mals muß man beim Codieren einen Blick auf 
die Definitionen werfen: 

D RÜCKGABE...: (Rückgabewert) 

Der Rückgabewert wird häufig dazu benutzt, 
dem aufrufenden Programm mitzuteilen, ob die 
Ausführung erfolgreich war oder nicht. Es soll¬ 
te zusätzlich die Bedeutung des Rückgabewerts 
erklärt werden. Für unser obiges Beispiel lau¬ 
tet der Text etwa folgendermaßen: 

RÜCKGABE: 0 bis (Zahl ersetzter Tab's), 
falls erfolgreich 
1, sonstige Fälle 

D BEDINGUNG: (Ablaufsbedingung) 

Stellt eine Funktion Forderungen an seine 
Ablaufumgebung, werden diese hier formuliert, 
d.h., unter welcher Bedingung läuft die Routi¬ 
ne fehlerfrei, was setzt sie als gegeben voraus? 
Im Beispiel »Tab2Blnk()« sieht das so aus: 
BEDINGUNG.: 

'SrcStr': er darf keinen Null-Pointer 
enthalten; Zeichenkette muß 
mit '\0' beendet werden. 

'NewStr': vor Beenden des Programms muß 
der Speicherplatz, der für die 
konvertierte Zeichenkette 
allokiert wurde, mit 1 free()' 
freigegeben werden. 
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3 FUNKTIONEN: 

Häufig rufen Unterprogramme andere Funk¬ 
tionen auf, wobei wir hier drei Arten von Funk¬ 
tionen unterscheiden können: Erstens die glo¬ 
balen, modulfremden Funktionen, zweitens 
die vom eigenen Modul exportierten und drit¬ 
tens die modulinternen Hilfsfunktionen. 

Entsprechend kann hier noch eine weiterge¬ 
hende Unterteilung dieses Punktes gewählt 
werden. 


Das Fragezeichen ist, wie gehabt, durch den 
Modul-Namen und den Namen der Routine zu 
ersetzen, z.B.: 

FUNKTIONEN: BEISPIEL.C - CountTabs() 

BEISPIEL.C - BlankStringO 
MODULJC.C - FunktionYO 

□ VARIABLEN: 

Analog zu den Funktionen kennen wir auch 
dieselben drei Arten von Variablen: global. 


modulglobal und modulintern. Auch hier wird 
das Fragezeichen durch den Namen des Mo¬ 
duls und der Variable ersetzt. Man könnte hier, 
wie unten gezeigt, auch den Typ der Variablen 
mitaufnehmen; unserer Meinung nach ist dies 
jedoch bei Compilern mit Typprüfung nicht 
notwendig - dafür ist er ja schließlich da. 

VARIABLEN: GLOBAL.C - int TabWeite 

GLOBAL.C - char BlankCode 

MODUL_X.C - char TabCode 


/• 

Mm.: STRINGS.C 

EXPORT FNKT: 

STRINGS.C - Tab2Blnk() Convert Tab's into Blanks 


IMPORT FNKT: BEISPIEL.C - int CountTabsI) 
BEISPIEL.C - void BlankStringO 
(CDÜL.X.C - int FunktionYO 


IMPORT VARS: GLOBAL.C - int TabWe:te 

GLOBAL.C - cbar BlankCode 

GLOBAL.C - char TabCode 


WICHTIG.... 

Tab2Blrik(l ist nur ein Muster und daher nicht lauf fähig 

WKU. 

Bereitstellen von Funktionen, die das Manipulieren von Zeichen¬ 
ketten erlauben. 

STATUS. 

<X> Actual 
< > Changing 

<X> Released 
<X> Version update 

HIST'BUGS.. 

Vers/TT-MMM-JJ/Wer 

i.OO/Ol-Dez-92/Ka 

O.I)2/!2-Nov-92/Ka 

D.Ol/ll-Nov-92/Ka 

0.00/10-Nov-92/Ka 

Was 

Released 

Tab2Blnk(| - dynamisches Allokieren 
Tab2Blnkl) - Fehler behoben 
neu: Tab2Blnk() 

AUTOR. 

COPYRIGHT.. 

Matthias Straß 
(cl 1993 

Istl 

UMGEBUNG...: 

Lattice C Compiler V5,10b 

Lattice BLink V5.10b 



, 



lc -fit -L 

STRINGS.C (so 

oder so Ähnlich) 

»define W3D_$TRI»GS 

«mclude <exec 

types.h» 



»mclude <stdio.h> 
iinclude <strmg.h> 


t* .-.-. module */ 

1 mclude ’ModuleJf.h’ 

•mclude ‘Gemeinsam.h‘ 


...... DEFINES •/ 

... module ’/ 

•define MAXLEN 256 

...."”**.....****** TYPEDEFS •/ 

...-.—.--- irodule */ 

typedef struct 

I /• beschreibt einen String 
int len: 

char str[MAXLENI; 

) STRING; 


extern int TatMidth; /* in char's •/ 

extern char BlankCode; /• char, used by Blankstring to enty a string '/ 

extern char TabCode; /* char, to sake a tab visible */ 


....Nlllll.IM.. 

..IMPLEMENTATION 

..... 


IMMIIIIMMMMIIMIiMMOMHIKIIMMIIIMIIM GRUPPE: STRING-UMYAHDLUNGEN 


Tab2Blnkl) 


RÜCKGABE...; 0 bis (Anzahl der ersetzten Tab'sl, falls erfolgreich 
-1, sonst 

BEDINGUNG.,: 'SrcStr 1 : er darf keinen Null-Pointer enthalten; die 

Zeichenkette muß mit einem •\0‘ beendet werden. 
'NewStr’: vor Beenden des Programms muß der Speicherplatz, 
der für die konvertierte Zeichenkette allokiert 
wurde, mit der Systemfunktion 'freeO' freigegeben 
werden. 


FUNKTIONEN.; BEISPIEL.C - int CountTabsl) 
BE1SPIEL.C - void BlankStringO 
MODUL.X.C - int FunktionYO 

VARIABLEN..: GLOBAL.C -int TafcKeite 

GIOBAL.C - char BlankCode 

GLOBAL..C - char TabCode 


EOKU.Bereitsteller, von ausreichend Speicherplatz für 'NewStr'. 

Es wird 'SrcStr' nach 'NewStr' kopiert und dabei nach 

Tabulatorzeichen ('TabCode') gesucht. Sie werden in 'NewStr' 
durch die in 'TahKeite' angegebene Anzahl Leerzeichen 
('BlankCode') ersetzt. 

'NewStr' zeigt auf die neu entstandenen String. 


1ÄSUNG.: |1| Fullen meines Hilfsstrings mit Leerzeichen 

12) Mit dem ersten Zeichen aus 'SrcStr' beginnen 

131 Ist das Zeichen ein 'TabCode', geschieht dies-und-das 

14) usw. 


HIST/BUGS..: 


Vers/TT-MMM-JJ/Wer 

1.00/0I-Dez-92/St 

0.20/12-Nov-92/St 


0.10/11-Nov-92/St 
0.00/10-Nov-92/St 
0.00/10-Hov-92/St 


Was 

Released 

Speicherplatz wird jetzt dynamisch 
allokiert 

Fehler beim Hochzahlen behoben 
Fehler beim Hochzahlen ... 
Erstersteiiung 


V 

int Tab2Bink /• convert Tabulators into Blanks •/ 
i char 'SrcStr /• Source String - original string, to be converted • 
,char 'NewStr /* New String - string with all tab's converted •/ 

) 


char •hilfStnng; 
short tabi'ounter; 
short index; 

/* hier folgt der Code mit den Nummer aus dem Punkt ‘LÖSUNG - an den 
' entsprechenden Stellen * 


..’"**!.......EXPORT •/ 

<“ ...—.-.functions •/ 

int Tab2Blnk /• convert Tabulators into Blanks */ 

I 

char 'SrcStr /* Source String - original string, to be converted */ 

,cbar 'NewStr /• New String - string with all tab's converted •/ 

); 

*.-.-. variables */ 

struct IntuitionBase UntuitionBase; 

STRING Error; /* enthalt Fehlermeldungen der Routinen */ 


for (index^O; index < MAX; tndex**) 

{ /* sollte hier stehen, was der Block macht (logische Einheit) •/ 

/* 12) (siehe oben)*/ 


if (hiifsStringlindex!==TabCode) 
i /* (31, Tab durch Blanks ersetzen */ 


int CountTabs 
( char *s); 

void BlankString 
( STRING *s); 

int FunktionY (void); 


'*• IMPORT •/ 
functions •/ 


/* for (so wei3 ich auch bei langen Blöcken, das dies eben der ' 
/* FOR-Biock ist*/ 


/* string with 0 or more tabs */ 


Tab2Blnk() •/ 


/• string to be blanked •/ 


/* it's doing something... */ 


.... . end of mxjule STRINGS ■ 


variables */ 


Formular: Ein ßeispiellisting, das zeigt, wie Sie Ihre Pro¬ 
gramme dokumentieren sollten. 
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□ DOKU...: ? (Dokumentation) 

Es erfolgt eine Beschreibung des Unterpro¬ 
gramms. Was macht die Funktion? Was nicht? 
Beispiel: 

DOKU...: Bereitstellen von ausreichend 
Speicherplatz für 'NewStr'. 

Es wird ’SrcStr' nach 'NewStr' 
kopiert und dabei nach Tabulatorz 
eichen {'TabCode') gesucht. Sie 
werden in 'NewStr' durch die in 
'TabWeite' angegebene Zahl Leer¬ 
zeichen ('Blankcode') ersetzt. 
'NewStr' zeigt auf neuen String. 

\1 LÖSUNG...: 

Ist der verwendete Algorithmus besonders 
trickreich, ausgefeilt oder kompliziert, sollte er 
hier beschrieben werden. Das erleichtert dem 
Programmierer später viel Kopfzerbrechen, 
wenn es darum geht, den Ablauf der Funktion 
nachzuvollziehen. 

Gerade dann, wenn die Lösung komplex ist. 
erweist es sich als vorteilhaft, den Algorithmus 
zu beschreiben und dabei die einzelnen Schrit¬ 
te durchzunumerieren. Im Programm-Code 
selbst verwendet man dann anstatt des Textes 
lediglich diese Nummern, um den Code nicht 
unnötig aufzublähen: 

LÖSUNG...: 

(1) Füllen meines Hilfsstrings mit 
Leerzeichen 

(2) Beginnend mit dem ersten Zeichen 
aus 'SrcStr' nach Tab’s suchen 

(3) Ist das Zeichen ein »TabCode«, 
geschieht dies-und-das 

(4) usw. 

Erklären Sie Ihre 
Lösung 


□ ZUSTAND: 

Hier möchten wir auf denselben Punkt aus 
dem Modulformular verweisen. Für die 
Tab2Blnk()-Funktion sieht das so aus: 

ZUSTAND_: <X> Released 

<X> Version update <X> Act < > Changing 


□ HIST/BUGS: Dies ist derselbe Punkt wie 
beim Modulformular (siehe Abbildung). Wich¬ 
tig ist bei diesem Punkt, daß der aktuellste Ein¬ 
trag immer oben steht! Unter »Was« wird no¬ 
tiert. »was« erweitert, geändert oder verbessert 
wurde. 

ENTSTEHUNG: 

Vers/TT-MMM-JJ/Wer Was 
1.00/12-Dez-91/Ka Released 


0.10/12-Dez-91/Ka 
0.01/ll-Dez-91/Ka 


Speicherplatz wird 
dynamisch allokiert 
Fehler beim Hoch¬ 


zählen des Index beh. 


0.00/10-Dez-91/ka Ersterstellung 


Eine letzte Bemerkung betrifft die System- 
bzw. Library-Funktionen. Verwendete Routi¬ 
nen dieser Art werden aus zweierlei Gründen 
nicht aufgeführt: Zum einen gehören diese 
Funktionen meist fest zum System - wie der 


Name schon sagt, zum anderen sind sie aus¬ 
getestet und lauffähig (hoffentlich), so daß Än¬ 
derungen an diesen Funktionen höchstens die 
Performance, nicht aber die generelle Funkti¬ 
on, geschweige denn die Parameter betreffen. 

Namensgebung bei Variablen 
und Funktionen: 

Ausgehend von Compilern, die während der 
Übersetzungsphase Typprüfungen durch¬ 
führen. bietet sich folgende »Strategie« an: Lo¬ 
kale Variablen/Funktionen beginnen generell 
mit einem kleinen Anfangsbuchstaben, globa¬ 
le Variablen/Funktionen mit einem Großbuch¬ 
staben. Die Namen werden evtl, aus mehreren 
Worten zusammengesetzt, wobei jedes weite¬ 
re Wort mit einem Großbuchstaben beginnt. 
Beispiele: 
lokal: 

short idxArrayA - Index eines Feldes A 
long counter 

short countTabsO - Hilfsfunkt, zum Zählen 
von Tab's 

global: 

short CountTabsInString() - wie oben, 

aber global 

char TabCode - ASCII-Code des Tab's 
long Diff - eine Differenz 
Es ist nicht sinnvoll - weil Ballast - bei den 
Variablen/Funktionen den Typen in irgendei¬ 
ner Form mitzuführen (als Präfix o.ä). Schließ¬ 
lich ist es die Aufgabe des Compilers, die 
Typzuweisungen zu überprüfen. 

In Systemen, in denen keine Typprüfung 
stattfindet, ist es, zur Selbstkontrolle, hilfreich, 
die Typen beispielsweise als Präfix mitzu¬ 
führen. So könnte man jeden Typen mit einem 
Buchstaben abkürzen und mit einem Unter¬ 
strich vor die “Variablennamen stellen (»i_« 
für integer. »s_« für String, usw.). Wichtig ist 
einzig und allein, daß irgendwo, an einer zen¬ 
tralen Stelle (am besten im Modulkopf) be¬ 
schrieben wird, welche Abkürzung was be¬ 
deutet, und daß es konsequent eingehalten 
wird. Wie die einzelnen Abkürzungen tatsäch¬ 
lich lauten, ist im Prinzip unwesentlich. 

Kommentierung: 

Ganz allgemein muß bei Kommentierungen 
im Quelltext darauf geachtet werden, daß man 
nicht jeden einzelnen Befehl beschreibt; eine 
schlechte Kommentierung ist z.B. folgende: 
i=START; /* 'i' auf START setzen */ 

/* solange 'i' kleiner als ENDE */ 
while (i <= ENDE) 

{ /* setze das 'i'-te Element auf 0 */ 

Feld[i] = 0; 

/* erhöhe 'i■ um 5 */ 
i += 5; 

} 

Untersuchungen (B. Sheiderman, »Software 
Psychology«, 1980) zeigen, daß derartige 
»Kommentare« nicht zum Verständnis des Al¬ 
gorithmus beitragen. Statt dessen sollten Zu¬ 
sammenhänge, logische Einheiten erläutert 
werden. Beispiel: 
i=START; 

while (i <= ENDE) 

{ /* Löschen jedes 5. Elements */ 


Feld[i] = 0; 

i += 5; 

) 

Derartige Kommentare sind häufig auch kür¬ 
zer und übersichtlicher als die »Low-Level- 
Kommentierung« (vergleiche hierzu das obige 
Code-Fragment). 

Zusammenfassung: 

In der Beispiel-Dokumentation finden Sie 
die meisten der ausgeführten Punkte noch ein¬ 
mal im Zusammenhang (siehe Listing). Dort 
wird zusätzlich noch ein Vorschlag bzgl. der 
Einrück-Strategie gemacht: Öffnende und 
schließende Klammern sollten übereinander 
stehen, der Block zwischen den Klammern um 
einen - nicht zu großen - Tabulatorschritt ein¬ 
gerückt werden. Jede öffnende Klammer, die ja 
einen Block einleitet, sollte sofort mit einem 
Kommentar versehen werden. 

Dokumentation: Die 
Mühe lohnt sich 


Motivationen: 

Das alles mag jetzt, für den einen oder an¬ 
deren Leser etwas zuviel des Guten sein. Aber 
wie bei allen Dingen, die das Programmieren 
betreffen, gilt vor allem hier: Ausprobieren. 

Tippen Sie die beiden Formulare ab und ver¬ 
wenden Sie sie bei nächster Gelegenheit. Wis¬ 
sen Sie nicht mehr genau, was in dem einen 
oder anderen Feld beschrieben werden soll, 
schauen Sie im Artikel nach. Sie werden sehen, 
daß Sie schon sehr bald auf die Beschreibun¬ 
gen ganz verzichten können. 

Vergleichen Sie auch einmal Ihre bisherigen 
Dokumentationen mit dem hiesigen Vorschlag, 
am besten, wenn Sie schon eine Funktion oder 
vielleicht sogar ein Modul auf die neue Weise 
dokumentiert haben. 

Haben Sie Fragen, Anregungen, Kommen¬ 
tare? Der Autor freut sich über jede Reaktion. 
Sie finden seine Adresse im Anschluß an die¬ 
sen Artikel. Sie können Ihre Anmerkungen 
aber natürlich auch unsere Redaktion schicken 


Matthias Straß. Wiihrder Hauplstr. 30,90489 Nürnberg 
Besonders danken möchten wir Bernd »Nicky« Koll. der die Formu- 
lare mit dem Autor überarbeitet hat. 


Der Autor über sich 


Matthias Straß: 

Geboren: 07. 01.69. Seit ich 15 Jahre alt bin, 
komme ich von den Computern nicht mehr los. 

Alles fing mit einem harmlosen C-64er an. Nach 
dem Gymnasium begann ich 1989 an der FH 
Nürnberg das Informatik-Studium. Zu diesem 
Zeitpunkt machte ich die ersten Erfahrungen mit 
dem Amiga 500. Inzwischen bin ich bei einem 
Amiga 2000 gelandet. 

Ich programmiere hauptsächlich (meist in C, hin 
und wieder in Assembler) oder erstelle mit TeX 
Referate für diverse Vorlesungen. 
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Grafische Algorithmen 


// 

Mathematische Th 


Haben Sie sich schon einmal überlegt, wie man auf dem Computer eine Linie 
zeichnet? Viele werden jetzt sagen: »Ganz einfach. Daßr gibt es doch den Be¬ 
fehl ‘Line'«. Doch welche Algorithmen werden dabei verwendet? Dieser Arti- 
kel erklärt auf einfache Art und Weise die erforderlichen mathematischen 
Grundlagen und vergleicht einige Routinen, um Linien zu ziehen. 


von Bernd Wiedemann 


D as Bild des Amiga setzt sich aus Punk¬ 
ten (Pixeln) zusammen. Jeder kann 
einzeln angesprochen werden. z.B. 
durch die Funktion »WritePixel«, die man in 
der »graphics.library« Findet. 

Will man nun zwei Punkte durch eine Linie 
verbinden, treten sofort die ersten Probleme 
auf: Es ist nämlich bis auf drei Ausnahmen un¬ 
möglich. eine gerade Linie auf dem Computer 
darzustellen. 

Wie man in Bild I unten sieht, kann man die 
Linie nur durch geschickte Auswahl von Punk¬ 
ten annähern (approximieren). Doch diese 
Aufgabe soll uns der Computer abnehmen! 

Gerade Geraden-gar 
nicht leicht 

Was wir brauchen, ist ein entsprechender Al¬ 
gorithmus. Doch bevor wir diesen erläutern, 
sollte man sich darüber im klaren sein, welche 
Eigenschaften er überhaupt haben sollte: 

1. Gerade Linien sollten auch als gerade Lini¬ 
en erscheinen. 

2. Die Helligkeit sollte konstant sein, und zwar 
unabhängig von der Länge und Steigung der 
Geraden. 

3. Die Linie sollte so schnell wie möglich ge¬ 
zeichnet werden. 

4. Linien sollten genau abgebildet werden, d.h. 
sie sollten genau starten und enden. 

Leider kann kein Algorithmus diese vier Ei¬ 
genschaften aufweisen, denn da der Amiga, 
wie schon erwähnt, mit Rastergrafik arbeitet, 
kann keine Linie gerade sein. Eine Ausnahme 
bilden vertikale, horizontale und 45-Grad-Li- 
nien (Bild 2). 

Die Helligkeit der Linie ist ebenfalls nur bei 
den drei Spezialfällen konstant. Allerdings ist 
sie auch hier abhängig von der Steigung. Die 
vertikalen und horizontalen Linien leuchten 
nämlich stärker als die 45-Grad-Linie. Dies ist 
deshalb so. weil der Zwischenraum zweier be¬ 
nachbarter Pixel auf der 43-Grad-Linie größer 
ist als auf den beiden anderen Linien. 

Zu Punkt 3 bleibt nur zu sagen: Das Zeich¬ 
nen von Linien kann, wie sollte es auch anders 
sein, nie schnell genug gehen. Allerdings kann 


man einen Algorithmus enorm beschleunigen, 
indem man nur Ganzzahl-Arithmetik (Integer) 
verwendet, d.h. man verzichtet auf Divisionen 
und Fließkommazahlen. 

Will man allerdings die Linien genau abbil¬ 
den. ist ein gewisser Mehraufwand erforder¬ 
lich. Und das bedeutet wiederum eine Zunah¬ 
me der Rechenzeit. 

Doch nun gehts »ans Eingemachte«. Sehen 
Sie sich dazu bitte Listing 2 auf der übernäch¬ 
sten Seite an. ln diesem und in allen darauf¬ 
folgenden Programmen w ird auf das Include- 
File »Grafik-Grundlage.h« (siehe Listing I 
nächste Seite) zurückgegriffen. Es stellt die für 
uns erforderlichen Bedingungen her. 

Zuerst werden die benötigten Libraries 
geöffnet. Danach initialisiert die Funktion 
»Vorbereitung« einen Bildschirm (Screen) und 
ein Fenster (Window). Die Funktion »Ende« 
dagegen schließt diese und auch die verwen¬ 
deten Libraries. Dadurch, daß das File in jedes 
folgende Programm eingebunden wird, sparen 
Sie viel Schreibarbeit. 

Alle Programme sind in C geschrieben und 
wurden auf dem Aztek-C-Compiler V.3.6 ge¬ 
testet. Allerdings sollte es auch mit dem SAS- 
bzw.. Lattice-Compiler keine Probleme geben. 

Nachdem Sie die Listings hoffentlich feh¬ 
lerfrei eingegeben haben, werden sie mit dem 
Befehl »cc NAME +ff« kompiliert, wobei man 
für »NAME« den richtigen Namen einsetzen 
sollte. Danach gibt man noch das Kommando 



Bild 1: Wegen des Rasterbildschirms 
kann auf dem Amiga keine gerade Li¬ 
nie dargestellt werden. Da man sie nur 
annähern kann, entstehen die lästigen 
Treppeneffekte. 



»ln NAME -Im -Ic« ein und schon hat man ein 
lauffähiges Programm, das man mit einem 
Mausklick auf das Close-Gadget auch bequem 
verlassen kann. 

Digital Differential 
Analyzer (DDA) 

Doch zurück zu Listing 2. Es enthält einen 
ganz einfachen Linienalgorithmus, den sog. Di¬ 
gital Differential Analyzer, kurz DDA. Dieser 
basiert auf der rekursiven Programmierung und 
auf der Methode der Inkrementierung (Steige¬ 
rung). 

Um eine Linie von P(xl;yl) nach Q(x2:y2) 
überhaupt zeichnen zu können, muß man wis¬ 
sen, aus wievielen Punkten sie besteht, d.h. 
wieviel Punkte gesetzt werden müssen, um sie 
optimal anzunähern. Da die beiden Endpunk¬ 
te P und Q bekannt sind, wird durch folgende 
Gleichung die Länge approximiert. 

LENGTH = MAX(ABS(x2-xl),ABS(y2-yl)) 
d.h. der größere der beiden Abstandswerte wird 
zur weiteren Berechnung herangezogen. 

Zum Kern des Algorithmus: Er geht von sei¬ 
nem Anfangspunkt P(x 1 ;y 1) aus und schließt 
von diesem auf den benachbarten Punkt PI, der 
die Linie am besten approximiert. Rekursive 
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Abstand 
- 3 ) = 9 


ehr oder weniger exakt getroffen werden. 

Programmierung nennt man das. Von PI han¬ 
gelt man sich folglich nach P2, von P2 nach P3 
... Dies geht solange, bis man am Punkt 
Q(x2;y2) angelangt ist. 

Anhand eines Beispiels ist dies am leichte¬ 
sten verständlich. Angenommen, es soll eine 


Linie vom Punkt P(3;3) zu Punkt Q( 12;8) " 

gezogen werden. Wie man in Bild 3 (links) 
leicht erkennt, beträgt die Länge der Linie neun 
Pixel (x2-xl = 12-3 = 9). 

Der erste Pixel hat die Koordinaten x=3 und 
y=3. Doch welche hat der benachbarte Pixel? 
Da die Variable Length = ABS(x2-x 1), d.h. der 
X-Abstand größer als der Y-Abstand ist. und 
x2 größer als x 1 ist, wird die Linie in Richtung 
der positiven X-Achse gezeichnet, d.h. von 
links nach rechts. Das bedeutet, daß der näch¬ 
ste Punkt immereine um I größere X-Koordi- 
nate hat als der vorhergehende. Die Schritt¬ 
weite dx in X-Richtung ist also 1. 

Und welche Y-Koordinate hat der Pixel? 
Hierzu benötigt man wieder die Schrittweite, 
jetzt jedoch dy. Sie sagt aus. um wieviel die Y- 
Koordinate des Pixels von der Y-Koordinate 



Bild 2: Nur die horizontalen, vertika¬ 
len und 45-Grad-Linien können mit 
Recht als gerade bezeichnet werden. 




des vor¬ 
hergehenden 
abweicht, dy läßt 
sich zum Glück leicht 
berechnen. 

dy = (y2-yl)/LENGTH 

Im Beispiel enthält dy den Wert 3/9. 

Der zum Punkt P(3;3) benachbarte Pixel müß¬ 
te also die Koordinaten Pl(4;3+5/9) haben. Da 
Pixel allerdings nur ganzzahlige Koordinaten 
haben können, wird der Nachkommateil eli¬ 
miniert. Dies geschieht mit Hilfe der SPFloor- 
Funktion. Sie liefert die größte ganze Zahl, die 
kleiner als die angegebene ist. in diesem Falle 
die Zahl 3. Somit hat PI die Koordinaten (4:3). 
Der nächste Punkt P2 hätte die Koordinaten 
(5;4+l/9), also genau (5:4). 

Nimmt man nun eine andere Linie, kann es 
sein, daß sie in Richtung der negativen Y-Ach¬ 
se gezeichnet wird. d.h. LENGTH = ABS(y2- 
y I), da ABS(y2-y 1) > ABS(x2-x 1), und y2 ist 
kleiner als y I, so ist dy = -1. Jetzt muß man al¬ 
so dx berechnen. Man verwendet dabei fast ge¬ 
nau die gleiche Formel wie für dy. 
dx = (x2-xl)/LENGTH 

In diesem Beispiel werden die Y-Koordina- 
ten fortlaufend um -I und die X-Koordinaten 
um dx erhöht. 

Damit der Algorithmus auch in allen Qua¬ 
dranten des Koordinatensystems korrekt ar¬ 
beitet, muß man die Variablen x und y folgen¬ 
dermaßen initialisieren: 

x = xl + 0.5*SPTst(dx) 


(tinclude <intuition/intuitionbase.h> 
ttinclude <libraries/math££p.h> 

/* Nächste Zeile nur eingeben, falls ein */ 

/* Aztek-C-Compiler verwendet wird. */ 

Kinclude <functions.h> 
struct IntuitionBase ‘IntuitionBase; 
struct GfxBase ‘GfxBase; 

struct Screen “screen; 

struct Window *window; 

/* Daten für den Screen: Auflösung 320 * 256 Pixel */ 

/* und 1 Bitplane */ 

struct NewScreen screendaten = 

{0,0,3 2 0,2 5 6, 1, 0, 1,NULL,CUSTOMSCREEN,NULL,NULL,NULL,NULL); 

/* Daten für das Window: Auflösung 320 * 256 Pixel */ 

/* Das Window kann durch Anklicken des CloseWindow- */ 

/* Gadgets geschlossen werden. */ 

struct NewWindow windowdaten = (0,0,320,256,0,1,CLOSEWINDOW, 
ACTIVATEIWINDOWCLOSE,NULL,NULL,(UBYTE *)"GRAFIKWINDOW", 

NULL,NULL,NULL,NULL,NULL,NULL,CUSTOMSCREEN,); 

Vorbereitung)) 

/* Diese Funktion öffnet alle benötigten Libraries, */ 

/* den Screen und das Window. */ 

( if(!IntuitionBase) 

( IntuitionBase = (struct IntuitionBase *) 

OpenLibraryl"intuition.library“,0L); 

if(!IntuitionBase) 

( Endet); 

) 

) 


if(!GfxBase) 

( GfxBase = (struct GfxBase *) 

OpenLibraryl"graphics.library", 0L); 

i£(!GfxBase) 

{ Ende(); 

) 

) 

screen = (struct Screen*)OpenScreen(iscreendaten); 
if(iscreen) 

{ Endet); 

) 

windowdaten.Screen = screen; 

window = (struct Window*)OpenWindow(iwindowdaten); 
if((window) 

( Ende(); 

) 

return(NULL); 

) 

Ende() 

/* Diese Funktion schließt alles, was Vorbereitung geöffnet hat */ 

{ if(window) CloseWindow(window); 
iflscreen) CloseScreen(screen); 
if(GfxBase) CloseLibrary(GfxBase); 
if(IntuitionBase) CloseLibrary(IntuitionBase); 
return(NULL); 

) © 1993 M&T 

Listing 1: »Grafikgrundlage.h« - das Include-File dient 
als Ausgangsbasis unserer Testprogramme 
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y = yl + 0.5*SPTst(dy) 

Die Funktion SPTst(x) liefert die Zahl 1, 
falls x positiv ist, die Zahl - I, falls x negativ ist, 
und die Zahl 0, falls x=(). Sie ist identisch mit 
der Signum-Funktion aus der Mathematik. 

Allgemein kann man allerdings sagen, daß 
der Algorithmus sehr genau arbeitet. Diesen 
Vorteil erkauft man sich aber mit einem gra¬ 
vierenden Nachteil. Da der DDA-Algorithmus 
mit Fließkommazahlen arbeitet und zudem 
auch noch Divisionen durchführt, kann man ihn 
wahrlich nicht als schnell bezeichnen. Im Ge¬ 
genteil, startet man das Programm »DDA« und 
paßt gut auf, dann kann man sogar noch gut er¬ 
kennen. wie die Linie gezeichnet wird. 

Noch eine Anmerkung: Benutzt man anstatt 
der verwendeten »SPFloor«-Funktion eine an¬ 
dere, beispielsweise die »ROUND«-Funktion, 
erhält man wiederum andere Ergebnisse. 

Geschwindigkeit ist 
Trumpf 

Kommen wir zu einem anderen Linienalgo¬ 
rithmus, dem der DDA in puncto Geschwin¬ 
digkeit nicht das Wasser reichen kann. Es han¬ 
delt sich um den »Bresenham-Algorithmus«. 

Wie beim DDA wird auch hier die Linie 
entweder in der x- oder in der y-Richtung ge¬ 
zeichnet. Das hängt natürlich von ihrer Stei¬ 
gung ab. Das heißt: Bei jedem Durchlauf wird 
die x- oder y-Koordinate um I verändert. Für 
die jeweils andere Variable wird der Abstand, 
auch Fehler oder Error genannt, von der Linie 
zum nächsten Gitterpunkt berechnet. Dadurch 
wird entschieden, ob sich auch diese um I ver¬ 
ändert oder gleich bleibt. 

Die Schnelligkeit des Bresenham-Algorith¬ 
mus beruht dabei u.a. auf folgendem Trick: Es 
wird nämlich nur das Vorzeichen des Errors 
ausgewertet. Zum besseren Verständnis sollten 
Sie sich Bild 4 anschauen. Hier wird allerdings 
angenommen, daß die Gerade eine Steigung 


zwischen 0 und I hat und durch den Ursprung 
( Koordinaten ()/()) geht. Somit ist der erste 
zu plottende Punkt auch schon gefunden. Da 
die Linie aufgrund der Steigung in Richtung 
der positiven x-Achse gezeichnet wird, hat das 
nächste Pixel die x-Koordinate 1. Doch welche 
y-Koordinate soll es haben? Diese Frage läßt 
sich leicht beantworten. Ist die Steigung der 
Geraden kleiner als 0.5 ( wie bei G1 ), so bleibt 
sie 0. da der Abstand von der Linie zum Punkt 
(I/O) kleiner ist als der zum Punkt (1/1) ( wie 
bei G2). Falls die Steigung größer oder gleich 
0.5 ist. wird sie I. 

Damit Sie den Bresenham-Algorithmus auch 
vollständig durchschauen, geben wir Ihnen ein 
weiteres Beispiel, bei dem auch die Vorzei¬ 
chenauswertung des Fehlers erklärt wird. Se¬ 
hen Sie sich hierzu Bild 5 an. 


Gegeben ist eine Gerade mit der Steigung 
2/7. die durch den Ursprung (()/()) geht. Eben¬ 
so wie oben liegt es auf der Hand, daß der er¬ 
ste zu setzende Punkt (0/0) ist. Da die Linie in 
positiver x-Richtung gezeichnet wird, erhöht 
man die x-Koordinate bei jedem Durchlauf um 
I. Doch nun soll die Vorzeichenauswertung 
zum Tragen kommen. 

Der Trick mit dem 
Vorzeichen 

Um ein korrektes Ergebnis zu erhalten, ist es 
notwendig den Fehlere mit -0.5 zu initialisie¬ 
ren und bei jedem Durchlauf die Steigung m 
der Geraden hinzuzuaddieren, d.h.: 
e = e + m 


/* Digital Differential Analyzer (DDA) */ 


/* Xnclude-File einbinden, das notwendige Vorbereitungen trifft (List.l)*/ 
«include <Grafik-Grundlage.h> 

y 

struct RastPort* rasp; 


main() 

{ int i; 

float length; 

float xl,x2,yl,y2,x,y,dx,dy; 


Vorbereitung!); 


rasp=window->RPort; 
xl = 30; 
yl = 30; 
x2 = 100; 
y2 = 80; 


/* Alle verwendeten */ 

/* Variablen sind */ 

/* hier aufgeführt. */ 

/* Ein Screen, ein Window und */ 
/* notwendigen Libraries werden */ 
/* geöffnet Diese Funktion */ 

/* befindet sich im Include-File */ 
/* "Grafik-Grundlage.h". ♦/ 


/* Koordinaten von P(30/30) */ 
/* Koordinaten von Q(100/80) */ 


/* Die angenäherte Länge wird bestimmt */ 
if(abs(x 2 -xl)>=abs(y 2 -yl)) 

( length=abs(x2-xl); 

) 

eise 

{ length=abs(y2-yl); 

) 

dx = (x2-xl)/length; /* Schrittweite in X-Richtung */ 

dy = (y2-yl)/length; /* Schrittweite in Y-Richtung */ 


/* Die Anfangswerte von x und y garantieren dafür, daß */ 

/* der Algorithmus in allen 4 Quadranten korrekt arbeitet */ 

x = xl + 0.5*SPTst(dx); /* SPTst(x) liefert -1, falls x negativ */ 

y = yl + 0.5*SPTst(dy); /* 0, falls x == 0, +1, falls x positiv */ 

/* Vergleichbar mit SIGNUM (sgn) •/ 

/* Die Schleife wird LENGTH mal durchlaufen */ 

for( i = 1; i <= length; i++ ) /* Laufvariable i enthält die */ 

/* Anzahl der Durchläufe */ 

( /* Koordinaten für die Funktion WritePixel müssen ganzzahlige */ 

/* long-Variablen sein. Die Funktion SpFloor(x) liefert die */ 
/* größte ganze Zahl, die kleiner als x ist, wobei x eine »/ 

/* FLOAT-Variable ist wie die von der Funktion SPFloor(x) »/ 

/* gelieferte Zahl. •/ 


WritePixel(rasp,(long)SPFloor(x),(long)SPFloor(y)); 
x=x+dx; /* Inkrementierung der */ 

y=y+dy; /* Variablen x und y */ 

/* Laufvariable i enthält die */ 

/* Anzahl der Durchläufe */ 

) 


) 

) 


/* Funktion wartet, bis */ 
Wait(lL<<window->UserPort->mp_SigBit); /* Close-Gadget */ 

/* angeklickt wird. */ 

/* Das Window, der Screen und alle benötigten */ 

/* Libraries werden geschlossen. Diese */ 

Ende(); /* Funktion befindet sich im Include-File */ 

/* "Grafik-Grundlage.h" */ 

© 1993 M&T 


Listing 2: Wir zeichnen eine Linie mit einem recht einfa¬ 
chen Algorithmus, dem Digital Differential Analyzer 
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Da hier die Fehler positiv waren, 
wurden sie um 1 verMindert. 


Bild 5: Eine Gerade mit Steigung 2/7 wurde mit Hille des Bresenham-Algorith- 
mus gezeichnet. Der Fehler e wurde mit -0.5 initialisiert. Bei jedem Durchlauf 
wurde die Steigung hinzuaddiert und anschließend das Vorzeichen ausgewertet. 


In unserem Beispiel hat e nach dem ersten 
Durchlauf den Wert 
e = -0.5 + 2/7 = -3/14 

e ist also negativ. Daraus folgt, daß die y-Ko¬ 
ordinate des vorhergehenden Punktes unver¬ 
ändert übernommen wird. Somit erscheint auf 
dem Bildschirm der Punkt (I/O). 

Jetzt kommen wir zum nächsten Durchlauf. 
Wir erinnern uns daran, daß die x-Koordinate 
um I erhöht werden muß, d.h. x = 2 . Ebenso 
wird zu e wieder die Steigung addiert, 
e = e + m = -3/14 + 2/7 = 1/14 
Da e nun positiv ist. wird die y-Koordinate 
um I erhöht, d.h. y = 1. Wir erhalten den Punkt 
(2/1). Allerdings muß jetzt der Fehler neu in¬ 
itialisiert werden, denn sonst würde er bei je¬ 
dem Schleifendurchlauf positiv bleiben, da ja 
auch die Steigung positiv ist. Das hätte zur Fol¬ 
ge. daß ständig die y-Koordinate um 1 erhöht 
würde. Dies wäre allerdings ein völlig uner¬ 


wünschtes Ergebnis. Daher muß e um 1 ver¬ 
mindert werden, 

e = e - 1 = 1/14 - 1 = -13/14. 

Doch nun geht es »normal« mit dem Bre- 
senham-Algorithmus weiter. Der nächste Punkt 
hat die x-Koordinate 3. Der Fehler e wird zu 
e = -13/14 + 2/7 = -9/14. 

Man sieht sofort: e ist negativ, d.h. die y-Ko¬ 
ordinate bleibt gleich und auf dem Bildschirm 
leuchtet das Pixel (3/1) auf. Nach einem wei¬ 
teren Durchlauf gesellt sich zu diesem der 
Punkt (4/1). da der Error e = -9/14 + 2/7 = -5/7 
wieder negativ ist. Bis zum Ende der Linie geht 
es nun immer so weiter. 

Wir hoffen, daß Sie jetzt mit dem Bresen- 
ham-Algorithmus vertraut sind und das dazu¬ 
gehörende Listing 3 langsam auf sich einwir¬ 
ken lassen können. Wenn man es nämlich ge¬ 
nauer betrachtet, fallt einem sofort auf. daß die¬ 
ser Algorithmus, ebenso wie der weiter oben 


besprochene DDA, mit Divisionen und Fließ¬ 
kommazahlen arbeitet. Mit dem erhofftem 
Geschwindigkeitsvorteil ist es also bis jetzt 
noch nichts geworden. 

Tempo durch Integer- 
Arithmetik 

Doch dieser Mister Bresenham war ein sehr 
schlauer Kopf. Aber sehen Sie selbst. Im Li¬ 
sting erscheint die Zeile 
e = dy/dx - 0.5 

Hier muß der Computer lange rechnen. 
Falls es uns nun gelingen würde, diese Zeile so 
zu modifizieren, daß nur noch Integer-Arith- 
metik verwendet werden würde, hätte man die 
oben so hoch gepriesene Geschwindigkeits¬ 
steigerung endlich erreicht. 

Und das ist nicht so schwer. Wie wir wissen, 
kommt es bei dem Fehler e nur auf das Vor¬ 
zeichen an. Falls wir nun obige Gleichung mit 
2 * dx multiplizieren, erhalten wir 
2*dx*e = 2*dy-dx 

Da sich das Vorzeichen nicht ändert, führen 
wir einen »neuen« Fehler e' ein: 
e'=2*dx*e=2*dy-dx 

Wenn man nun den restlichen Programm¬ 
code an diese Zeile anpaßt, erhält man auf¬ 
grund der Integer-Arithmetik einen sehr schnel¬ 
len Linienalgorithmus, wie man in Listing 4 
(nächste Seite) auch sehen kann. Allerdings 
funktioniert dieser nur im I.Oktanten perfekt. 

Natürlich wollen wir Ihnen auch den »All¬ 
gemeingültigen Bresenham-Algorithmus« 
nicht vorenthalten. Je nachdem in welchem Ok¬ 
tanten man liegt, wird die x- oder y-Kompo- 
nente zur Laufvariablen und hier entscheidet 
sich auch, ob auf- oder abgezählt wird. Doch 
darauf will ich jetzt nicht näher eingehen. Stu¬ 
dieren Sie zum Schluß Listing 5. 

Sie sehen, daß sich mit einem »kleinem 
bißchen« Mathematik doch recht interessante 
Probleme bewältigen lassen. Aber noch mehr 
würde es uns freuen, wenn Ihnen dieser Arti¬ 
kel gefallen hat. ■ 

l.ltcraturhinwcis: 

David F. Rogers "Procedural niements lor Computer Graphics” 
McGraw-Hill Book Company ISBN 0-07-053534-5 Seite 29 - 42 


/* Bresenham-Algorithmus für den ersten Oktanten */ 


dy = y2 - yl; 


/* Include-File einbinden, das notwendige Vorbereitungen trifft (List.l)*/ 


Hinclude <Grafik-Grundlage.h> 


struct RastPort* rasp; 


main() 

{ int i; 
float e; 

long xl,x2,yl,y2,x,y,dx,dy; 


/* Alle verwendeten */ 
/» Variablen sind */ 
/* hier aufgeführt. */ 


Vorbereitung!); /* Eine bekannte Funktion */ 

/* siehe Grafik-Grundlage.h */ 

rasp=window->RPort; 
xl = 30; 

yl = 30; /* Koordinaten von PI */ 

x2 = 100; 

y2 = 80; /* Koordinaten von P2 */ 


/* Beginn des Algorithmus */ 
x = xl; 

y = yl; 

dx = x2 - xl; 


/* Der Fehler e wird initialisiert */ 
e = ((float)dy/(float)dx) - 0.5; 

for(i=l;i<=dx;i++) 

( 

WritePixel(rasp,x,y); 

while(e>=0) /* Bei positivem e wird y erhöht */ 

{ /* anschließend wird e reinitialisiert */ 

y = y + 1; /* bei negativem e dagegen, wird */ 

e = e - 1; /*y nicht verändert */ 

) 

x = x + 1; 

e = e + ((float)dy/(float)dx); 

) 


) 

) 


Wait(lL<<window->üserPort->mp_SigBit); 
Ende(); 
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Listing 3: Beispiel für einen schnelleren Algorithmus, den 
Bresenham-Algorithmus 
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/* Integer Bresenham-Algorithmus für den ersten Oktanten */ 
#include <Grafik-Grundlage.h> 
struct RastPort* rasp; 


main() 

{ int i; 

long xl,x2,yl,y2,x,y,dx,dy,e; 

Vorbereitung!); 
rasp = window->RPort; 
xl = 30; 


yl = 30; 
x2 = 100 ; 

y2 = 80; 


/* Alle verwendeten */ 
/* Variablen sind */ 
/* hier aufgeführt. */ 
/* Man beachte: keine */ 
/* Fließkommavariablen */ 


/* Koordinaten von PI */ 


/* Koordinaten von P2 */ 


/* Beginn des Algorithmus */ 
x = xl; 

y = yl» 

dx = x2 - xl; 
dy = y2 - yl; 


/* Der neue Fehler e wird initialisiert */ 
e = 2*dy -dx; 


for(i=l;i<=dx;i++) 

( WritePixel(rasp,x,y); 
while(e>=0) 

( 

y = y + 1» 

e = e - 2*dx; 

) 

x = x + 1; 
e = e + 2 *dy; 


Walt(lL<<window->UserPort->mp_SigBit); 
Endel); 


/* Ab hier wurde das Programm */ 
/* dem neuen Fehler angepasst */ 


Listing 4: Nochmals der Bresenham-Algorithmus - dies¬ 
mal arbeitet das Programm mit Integerzahlen 


/* Integer Bresenham-Algorithmus für alle Oktanten */ 
ttinclude <Grafik-Grundlage.h> 
struct RastPort* rasp; 


main() 

( int i; 

int change,sl,s2; 

long xl,x2,yl,y2,x,y,dx,dy,e; 


/* Alle verwendeten 
/* Variablen sind 
/* hier aufgeführt. 


Vorbereitung!); 
rasp = window->RPort; 
xl = 30; 


/* Koordinaten von PI */ 

/* Koordinaten von P2 */ 

/* Beginn des Algorithmus */ 


dx = abs! (float)(x2 - xl) ); 
dy = abs( (float)(y2 - yl) ); 
s 1 = SPTst(x2 - xl); 

82 = SPTst(y2 - yl); 


if(dy>dx) 

{ dy ■ dx; 
dx = abs( 
change = 

) 

eise 

(change = 0 
) 


/* Anzahl Pixel in x-Richtung */ 
/* Anzahl Pixel in y-Richtung */ 
/* Vorzeichen für x-Richtung */ 
/* Vorzeichen für y-Richtung */ 


/* Entscheidung, in welcher */ 

/* Richtung Linie gezeichnet wird */ 
/* dx und dy werden */ 

(y2 - yl) ); /* vertauscht */ 

/* Plag für Vertauschung gesetzt */ 

/* Keine Vertauschung von dx und dx, */ 

/* da Flag nicht gesetzt ist */ 


/* Der Fehler e wird initialisiert */ 
e = 2*dy - dx; 
for(i=l;i<=dx;i++) 

{ WritePixel(rasp,x,y); 

while(e>=0) /* Bei positivem e wird, je nachdem, */ 

{ /* ob das Flag change gesetzt ist oder */ 

/* nicht, x bzw. y verändert. */ 

if(change==l) /* Ob zu x bzw. y etwas addiert bzw. */ 

{ x = x + sl; /* subtrahiert wird, entscheidet das */ 

) /* Vorzeichen sl bzw. s2 */ 

eise 

{ y = y + s 2 ; 

) 

e = e - 2*dx; /* Reinitialisierung von e */ 

) 

if(change==l) 

{ y = y + s 2 ; 

) 

eise 

( x i x ul; 


e = e + 2*dy; 

) 

Wait(lL<<window->UserPort->mp_SigBit); 
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Listing 5: Wir sind am Ziel: der komplette Integer-Bre- 
senhum-Algorithmus 
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Mathematische Algorithmen 


Wurzel ziehen 

Wie berechnet der Computer die Wurzel einer Zahl? Wirstellen Ihnen hier 
einen Algorithmus vor, und setzen ihn in Assembler um. So erhalten Sie ei¬ 
ne besonders schnelle Routine, die Sie nach Belieben in eigenen Program¬ 
men einsetzen können, bei denen es auf Tempo ankommt. 


i 


von Sebastian Wedeniwski 


K opfrechnen ist out! Sobald man eine 
kompliziertere Formel berechnen muß. 
nehmen die meisten lieber einen Ta¬ 
schenrechner zur Hand und lösen so ihre Pro¬ 
bleme. Und so geraten die eigentlichen mathe¬ 
matischen Grundlagen immer mehr in Verges¬ 
senheit. Die Wurzel ist einfach die Taste 
rechts oben auf dem kleinen Rechenmonster. 

Doch nicht mit uns: Wir zeigen Ihnen hier 
einmal, wie man eine Funktion wie die Wur¬ 
zel-Funktion auf dem Computer umsetzt, d.h. 
wir beleuchten einige Algorithmen und imple¬ 
mentieren das Ganze in Assembler. 

Annäherungstaktik 
zum Wurzelziehen 

Die Aufgabe sieht wie folgt aus: Für eine po¬ 
sitive Zahl a soll die Zahl Va (= SQR(a)) nähe¬ 
rungsweise ermittelt werden. 

Bevor wir auf die exakten Verfahren einge- 
hen, werfen Sie einen Blick auf den Kasten un¬ 
ten mit dem Titel »Annäherung«. Ein Beispiel, 
das zeigt, wie man die Wurzel durch Probieren 
im Kopf ausrechnen kann. Das Ganze ist sicher 
recht simpel und nicht sehr zielstrebig: es zeigt 
aber genau, wie man durch langsames 


Annäherung 


Wie kann man die Wurzel einer Zahl im Kopf 
berechnen? Am besten durch schrittweises 
Nähertasten ans gesuchte Ergebnis, wie fol¬ 
gendes Beispiel zeigt: 

Nehmen wir die Wurzel aus 8? Wir wissen, 
die Wurzel aus 9 ist 3 und aus 4 ist es 2. Die 
gesuchte Wurzel muß irgendwo dazwi¬ 
schenliegen. 

Versuchen wir's mit 2,5: Dann müßte 2,5 
multipliziert mit sich selbst wieder die Aus¬ 
gangszahl 8 ergeben. Allerdings ergibt 2,5 * 
2,5 nur 6,25, d.h. unsere Wurzel ist um eini¬ 
ges zu klein. 

Besser wäre ein Wert von 2,9. Wir rechnen 
2,9 * 2,9... das gäbe 8,41... zu groß. Wir 
müssen unser vorläufiges Ergebnis von 2,9 
etwas kleiner wählen... 2,8. Jetzt kommen 
wir auf 2,8*2,8 = 7,84. Wieder zu klein - 
aber nicht viel. Nehmen wir jetzt 2,83...usw. 


»Annähern« den tatsächlichen Wert immer ex¬ 
akter eingrenzt. Die mathematischen Verfahren 
arbeiten nun ähnlich, sind allerdings um eini¬ 
ges effektiver: 

□ Das erste Verfahren auf das wir eingehen 
wollen, geht auf Heron von Alexandria zurück 
(um 60 n. Chr.). Die Methode verfeinert den 
Weg. den wir am Beispiel im Kopf vollzogen 
haben. Das Verfahren wird durch eine geome¬ 
trische Interpretation verdeutlicht: 


a=x 2 


X 


Uralt: Das Verfahren von Heron beruht 
auf der quadratischen Gleichung 

Die Seitenlänge x eines Quadrats vom 
Flächeninhalt a wird gesucht. Mit dem ersten 
Näherungswert x„ wird begonnen (x n ist ent¬ 
weder zu groß oder zu klein). Wenn x„ die Län¬ 
ge eines Rechtecks ist, das denselben 
Flächeninhalt a wie das vorgegebene Quadrat 
hat - muß die Breite a/x„ sein. Der nächste 
Schritt wäre es, einen besseren Näherungswert 
x, zu ermitteln: Wenn x 0 zu groß ist, ist a/x„ zu 
klein und umgekehrt. Folglich wird der Um¬ 
fang U des Rechtecks ermittelt: 

U= 2x„+2a/x (l ♦-> U/4=l/2*(x 0 +a/x fl ) 



Näherung: Mit dem ersten x-Wert 
bekommen wir noch ein Rechteck 


Den Umfang U durch vier geteilt liefert als 
arithmetisches Mittel von x„ und a/x„ einen bes¬ 
seren Näherungswert x,. Dieser Prozeß kann 
weiter fortgesetzt werden, d.h. der Wert x, wird 
als neuer x u -Wert für eine weitere Berechnung 
eingesetzt und liefert dann einen Wert x, etc. 

Der neue Wert x n+l entsteht dadurch, daß je¬ 
weils das arithmetische Mittel aus dem alten 
Näherungswert x„ und dem Quotienten a/x n ge¬ 
bildet wird. Die explizite Formel lautet: 

x nt ,= l/2*(x„+a/x n ) 

□ Ein weiteres Verfahren, das kurz erwähnt 
werden soll, ist das Näherungsverfahren von 
Newton (Nullstellenbestimmung einer Funkti¬ 
on): Die Tangente im Punkt (x,f(x)) hat die 
Gleichung: 

y = f(x n )+f'(x n )(x-x„) ; Nullstelle y = 0 
< » x n(1 =x n -f(x n )/r(x n ) 

Um nun die Wurzel von a zu bestimmen, 
wird die Funktion benötigt, deren Nullstelle das 
gesuchte Ergebnis ist: 

f(x) = x : -a ; Hx) = 2x 

□ Man kann die Quadratwurzel auch schriftlich 
berechnen. Zunächst muß eine reele Zahl x von 
rechts nach links in Gruppen zu je zwei Ziffern 
zerlegt werden. Die fundamentale Formel, um 
die Quadratwurzel zu berechnen, lautet: 

(a+b+c+....) 2 =a 2 +(2a+b)b+2a+2b+c)c+... 

Andere Schreibweise: 

ceN; dt{«„9} (Ziffer) 

(10e+d) 2 = l««c 2 +(20c+d)d 

Der erste Schritt sieht so aus, daß aus der am 
weitesten links stehenden Zweiergruppe die 
größte Quadratzahl (c 2 ), die kleiner oder gleich 
dieser Gruppe ist, bestimmt wird, wobei dieses 
c die erste Ziffer der gesuchten Quadratwurzel 
dars teilt. 

Ab jetzt bekommt dieses Verfahren ähnliche 
Strukturen des schriftlichen Dividierens, indem 
die Quadratwurzel von der Zweierwurzel ab¬ 
gezogen wird und das Ergebnis (e) darunter ge¬ 
schrieben wird. Zuersteinmal wird von dieser 
Zahl e die letzte Ziffer weggelassen und durch 
2c dividiert. So erhält man die nächste Ziffer 
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d der Quadratwurzel, und es wird d(20c+d) 
von e abgezogen. 

Ist aber das Produkt größer als die erweiter¬ 
te Differenz, ist der Divisor durch die passen¬ 
de kleine Ziffer zu erweitern. Nun wird c durch 
lOc+d ersetzt und der Algorithmus solange 
wiederholt, bis die gewünschte Anzahl Ziffern 
berechnet ist. Stößt man ans Komma, wird 
auch im Ergebnis an dieser Stelle das Komma 
geschrieben. Ein Beispiel: 

V2l34l,l56IOOIOOI..-.=) 15,315 (c=l) 


134 (13/2 : d=5) 


J25 


(25*5 :e = 125) 


956 (95/30 : d=3) 

-909 (303*3 : e=909) 

4700 (470/306 :d=l) 

-3061 (3061*1 :e=306l) 

163900 (16390/3062: d=5) 

-153125 (30625*5 : e= 153125) 

10875 

fl Anhand des schriftlichen Wurzelziehens gibt 
es ein Verfahren, das durch eine Modifikation 
für den Computer besonders geeignet ist. 
Zunächst einige Definitionen: 

ceN (Resultat; 
reN (Radikant); 
de{0..9} (Ziffer) 

Den ganzen Anteil einer reelen Zahl x be¬ 
zeichnet man l_x_l, z.B. I_l,42_l = I 

x = l_Vr/10 k J*10 k bedeutet, daß x dasjeni¬ 
ge Vielfache von lö k ist. für das r-x 2 seinen 
kleinsten nichtnegativen Wert annimmt. z.B.: 

r = 3457 l_Vr/10_l*10 = 50 

denn r-50 2 = 957, aber r-60 2 = -143<0 
Der Ausdruck r-x 2 kann sogar durch 
l_r/10 2k J*10 2k -x 2 ersetzt werden. Im Beispiel 
würde dies ergeben: 

3400-50 2 = 900; 3400-60 2 = -2()0<0 


l_Vr/I0 k *‘j = c k „ ; 
l_Vr/l() k _l = c k ; 
l_r/l() 2k _l = r k ; 


Für die k-te Dezimalstelle d k gilt: 
c k =10*c k+l +d k 

Nach der Folgerung muß d k so gewählt wer¬ 
den. daß r k *lö 2k -(c k ) 2 *10 2k nichtnegativ, aber so 
klein wie möglich wird; und es wird minimal, 
wenn r k -(c k ) 2 minimal wird. Das ist aber gleich 

«V(10c k ., + d k ) 2 = 
r k -100(c k , l ) 2 -20c k .,d k -((d k ) 2 = 
(r k -(10c k , 1 ) 2 )-d k (2*I0c ktl +d k ). 

Bekannt sind r k und c k „ und gesucht wird 
dann nur noch ein passender Wert für d k . 

Im Beispiel: 

r„= 3457; c,= 5; 957-d M (100+d„): 
d„=8. da 8*( 100+8) = 864, aber 
9*( 100+9)=981 >957 

Durch wiederholte Anwendung dieses Ver¬ 
fahrens können der Reihe nach alle Dezimal¬ 
stellen von \(r) bestimmt werden. Allerdings 
muß man in jedem Schritt den obigen Aus¬ 
druck minimieren und auf nichtnegativ über¬ 
prüfen. 

Durch Verändern der Basis des Zahlensy¬ 
stems von bisher 10 in 2 (Binärsystem) bleiben 
alle Überlegungen trotzdem richtig und zu¬ 
sätzlich ergibt sich eine wesentliche Vereinfa¬ 
chung, nämlich für dk gibt es nur zwei Mög¬ 
lichkeiten. 

Der bei der Wahl von d k zu minimierende 
Ausdruck ist nun: 


d k f{(),l}; (r k -(2c ktI ) 2 )-d k (2*2c k4l +d k ) 

Deswegen genügt ein einfacher Vergleich: 
falls r k -4(c k+l ) 2 > 4c k ., ist, dann d k =0 
falls r k -4(c k+l ) 2 => 4c k+l ist. dann d k =l 
Die dabei auftretende Multiplikation mit 4 
entspricht einer einfachen Verschiebung um 
zwei Bit nach links. 

Nun haben Sie zwei verschiedene Verfahren 
zur Berechnung der Quadratwurzel kennenge¬ 
lernt - wo liegen die Vor- und Nachteile? 


Das erste Verfahren, eine iterative Berech¬ 
nung von V(a), hat eine wichtige Eigenschaft: 
die Folge der Näherungswerte x m konvergiert 
quadratisch gegen V(a). d.h. wenn die erste k 
Ziffern von x m mir V(a) übereinstimmen, 
stimmt bei x m+1 mindestens 2k Ziffern mit der 
Zahlenfolge von V(a) überein. Im zweiten Ver¬ 
fahren (Newton) trifft man die gleiche quadra¬ 
tische konvergierende Eigenschaft. Beim letz¬ 
ten Verfahren konvergiert es linear, aber ohne 
Division, die in Assembler viel Zeit bean¬ 
sprucht. Dieses Verfahren ist durch eine Mo¬ 
difikation für sehr lange Zahlen besser geeig¬ 
net. da nur Verschiebungen und Subtraktionen 
benötigt werden. Doch nun konkret zur Im¬ 
plementation »Wurzel.asm«. 

Wurzel in Assembler 

Der Radikant (32 Bit) steht im Datenregister 
DO und das Resultat (16 Bit) erhält man im Da¬ 
tenregister Dl. Man muß einen der erwähnten 
Algorithmen (bin_wurzel, bin_wurzel2, Heron 
oder Newton) mit bsr/jsr aufrufen, um das Re¬ 
sultat zu erhalten. Die Algorithmen bin_wurzel 
und bin_wurzel2 sind weitgehend identisch, 
nur daß die zweite Version speziell auch für die 
Verwendung von längeren Radikanten modifi¬ 
ziert wurde (besteht nur noch aus Verschieben, 
Vergleichen und Subtrahieren; Orientierungs- 
hilfe: x-Flag). Die zwei Implementationen 
sind im Langwortbereich um Vielfaches 
schneller als die anderen. 

Versuchen Sie. die einzelnen Implementa¬ 
tionen auszubauen und evtl, zu optimieren. Fin¬ 
den Sie einen Trick. Wurzeln noch schneller zu 
ziehen? Und wenn Sie ein besonders schnelles 
Programm anzubieten haben, bitte sehr! 
Schicken Sie Ihre Lösung an die Redaktion und 
vielleicht sind Sie im nächsten »Faszination 
Programmieren« dabei. 

Zum Schluß seien noch ein paar andere 
Möglichkeiten des Wurzelziehens genannt, 
die evtl . noch besser zu implementieren sind: 
Pellsche Gleichung. Kettenbrüche, euklidscher 
Algorithmus und Fionacci-Zahlen. Auch hier 
sollten Sie ein wenig experimentieren. ■ 


; Wurzel.asm berechnet Wurzeln 

bpl.s 

Start 

divu 

dl, d2 



lsr 

#1, dl 


d3,d2 

bit_length 

= 32 

rts 


add.l 

d2,dl 

rad 

= 200000000 

bin wurzel2: 

lsr.l 

#l,dl 



move. 1 

#$40000000,dl 

cmp 

d2,dl 

move.1 

#rad,dO 

move.1 

#$30000000,d7 



bsr 

bin_wurzel 

start2: 




;bsr 

bin_wurzel2 

lsr.l 

#l,dl 



;bsr 

Heron 

eor.l 

d7,dl 

Newton: 


;bsr 

Newton 

cmp.l 

dl,dO 

moveq 

#0, d3 

rts 


bmi.s 

loop2 

moveq 

#l,dl 

bin_wurzel- 


sub.l 

dl,dO 



move.1 

#$40000000,dl 

or.l 

d7,dl 


d3,dl 

moveq 

#bit_length-3,d7 

loop2: 


move 

dl,d2 

Start: 


lsr.l 

#2,d7 

mulu 

d2,d2 

bset 

d7,dl 

bcc.s 

start2 

move.1 

d0,d3 

lsr.l 

#l,dl 

lsr 

#l,dl 


d2,d3 

bchg 

d7,dl 

rts 


divs 

dl,d3 

cmp. 1 

dl,dO 

Heron: 


asr 

#l,d3 

bmi.s 

loop 

moveq 

#0,d3 

bne.s 


sub.l 

dl.dO 

subq 

#l,d3 

rts 

; © 1993 M&T 

bset 

d7,dl 

moveq 

#l,dl 



loop: 


heron 1: 


»Wurzel.asm«: Ein Assembler-Pro- 

subq 

#2,d7 

move. 1 

d0,d2 

gramm, das Wurzeln berechnet 
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Multitasking: Tasks und Signale 


Scheibchenweise 

Eines hat der Amiga vielen Konkurrenten voraus: Multitasking. Wie das funk¬ 
tioniert, welche Datenstrukturen für den Programmierer relevant sind und wel¬ 
che Synchronisationsmechanismen zur Verfügung stehen - hier erfahren Sie's. 


TaskReady 
T askl-Jait 


struct Node Hlh_Head 
struct Node *lh_Tail —.— f 

struct Node Hlh_TailPredT 


ULONG t c_S i gR t toc 
ULOhG t c_ SigUait 
ULONG tc_S igRecu 
ULONG tc_StgExcept 



UUPRD tc_TrapR1lo c UUORD tc_Trapflbt 

RPTR tc_ExceptData 
RPTR tc_ExceptCo de 
RPTR tc_TrapData 
RPTR tc TrapCode 

RPTR ~t cISPReq- 

RPTR tc_SPLower 
RPTR tc_SPO^iF 
UOID (wtc_ Switch)Q 

Launch)( ) _ 

struct Node Mlh_Head 

struct Node wlh_Tail _ 

Ttruct Node *lh_TailPred' 

_UBYTE lh_Type I UBVTE th 

UserData 



RPTR 


Amiga-Interna: Die für Programmierer wichtige Task-Struktur mit allen Einträ¬ 
gen im Überblick 


von Franz-Josef Reichen 


W as ist überhaupt »Multitasking«? Im 
Grunde drückt dieser Begriff nur 
aus. daß mehrere Programme zur 
gleichen Zeit im Hauptspeicher des Amiga vor¬ 
handen sind und abwechselnd ausgeführt wer¬ 
den können: .Sie teilen sich untereinander einen 
einzigen Prozessor. Das alleine ist allerdings 
nicht das eigentlich Bemerkenswerte. Interes¬ 
santer ist das »Wie«: Wie findet diese Auftei¬ 
lung statt? Von der verwendeten Technik 
hängt entscheidend die Leistungsfähigkeit ei¬ 
nes Multitasking-Systems ab. 

Die einfachste Strategie wäre, die verfügba¬ 
re Prozessorzeit gleichmäßig auf alle konkur¬ 
rierenden Programme zu verteilen. Zwar wäre 
das auf den ersten Blick legitim, aber nur in den 
wenigsten Fällen sinnvoll. Da verschiedene 
Programme unterschiedliche Bedürfnisse be¬ 
züglich ihrer Prozessornutzung haben, würde 
dies ständig zu ungenutzten Uberkapazitäten 
für die eine Gruppe, chronischer Unterversor¬ 
gung hingegen der anderen Programmgruppen 
führen. Ein weiterführender Ansatz ist daher 
die bedarfsorientierte Verteilung der knappen 
Ressource Prozessorzeit. Hierbei wird gefor¬ 
dert. daß Wartezeiten eines Programms, wie sie 
etwa bei lO-Operationen auftreten. den ande¬ 
ren Programmen zugute kommen sollen. Dar¬ 
über hinaus existiert noch eine zusätzliche Stra¬ 
tegie: Die sog. priorisierte Verteilung. Dabei er¬ 
halten weniger wichtige Programme entspre¬ 
chend seltener als Anwendungen mit höherer 
Priorität die Chance. Prozessorzeit für sich zu 
beanspruchen. 

Der Amiga beherrscht »real time, message- 
based multitasking« 111. »real-time«. weil der 
Amiga in der Lage ist. auf Ereignisse in Echt¬ 
zeit zu reagieren. Vom Standpunkt des Benut¬ 
zers hat es den Anschein, daß nur dieses eine 
Programm bearbeitet wird. »Message-based«. 
weil der Datenaustausch und damit auch die 
Multitaskingsteuerung grundsätzlich über ein 
Nachrichtensystem erfolgen. 

Programme bezeichnet man als Tasks. Je¬ 
dem Task wird eine bestimmte Priorität zuge¬ 
ordnet. Über die bekannte »Node«-Struktur. die 
außerdem der Verkettung von Systemlisten 
dient, wird jedem Task eine Wertigkeit im Be¬ 
reich von -128 bis +127 zugeteilt. Je höher die 
Wertigkeit, umso mehr Prozessorzeit fällt dem 
Task zu. Der »Task-Scheduler«, ebenfalls ein 
Teil des Exec, ist nun dafür verantwortlich, daß 
jeder Task zum Zuge kommt, also gelegentlich 


für eine kurze Zeitspanne den Prozessor bean¬ 
spruchen kann. Exec aktiviert die Tasks über 
sein Interrupt-System in regelmäßigen Ab¬ 
ständen. im Durchschnitt etwa zehnmal pro Se¬ 
kunde. Normalerweise kann jeder Task nahe¬ 
zu zu jedem beliebigen Zeitpunkt Prozessorzeit 
erhalten oder den Zugriff darauf verlieren: Man 
spricht daher von »zuvorkommender Zeitpla¬ 
nung« oder »preemptive scheduling«. Bei ei¬ 
nem Taskwechsel werden alle Prozessorregi¬ 
ster des alten Tasks auf seinen Stack gerettet 
und die des neuen vom Stack geladen. Der 
neue Task setzt also seine Abarbeitung genau 
an der Stelle fort, wo ihn der Scheduler das 
letzte Mal unterbrochen hat. Alle Tasks, die ge¬ 
rade keine Prozessorzeit haben, befinden sich 
in einer Warteschlange. Ein Wechsel des akti¬ 
ven Tasks findet genau dann statt, wenn eines 
der folgenden Ereignisse eintritt: 
fl Ein Task mit höherer Priorität wird der War¬ 
teschlange zugeführt, der dem gerade aktiven 
Task zuvorkommt. 

□ Der aktive Task muß auf ein externes Er¬ 
eignis warten und daher den Prozessor von sich 
aus abgeben. 

□ Der aktive Task hat die ihm zugeteilte Zeit¬ 
spanne verbraucht und ein anderer mit gleicher 


Priorität steht bereit. Kontrolle über den Pro¬ 
zessor zu erlangen (ZeitscheibenVerteilung, 
»time-slicing«). 

Mit seinem »preemptiven« Multitasking 
verfügt das Amiga-Betriebssystem über ein 
recht ökonomisches Verteilungsschema. Im 
Falle eines einzelnen Tasks ohne Konkurrenz 
erhält dieser die verfügbare Prozessorzeit und 
kann sich ungestört seinen Aufgaben widmen. 
Kommt ein Task niederer Priorität hinzu, be¬ 
kommt dieser genau dann Prozessorzeit, wenn 
alle Tasks mit höherer Priorität selbst gerade 
keine benötigen. Tasks gleicher Prioritätsstufen 
teilen dagegen brüderlich die Prozessorzeit mit¬ 
einander. 

Warten - aber richtig: 

Wir sprachen es schon des öfteren an: Das 
»Warten auf ein externes Ereignis« als steu¬ 
erndes Element des Multitaskings. Doch was 
ist das eigentlich? Mit dem Übergang batch- 
orientierter (Stapelverarbeitung) zu interaktiven 
(dialogorientierten) Betriebssystemen stellte 
sich auch an sämtliche Programme die Anfor¬ 
derung. interaktiv auf Benutzereingaben zu rea¬ 
gieren. während früher einfach nur stur Re- 
chenvorschriften mit vorgegebenen Daten ab- 
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gearbeitet und am Ende das Ergebnis ausge¬ 
geben wurde. Beim Amiga ist das anders. Hier 
liegt das Augenmerk auf der Kommunikation 
zwischen Programm und Anwender: dem Dia¬ 
log. Muß ein Programm im Multitasking-Be¬ 
triebssystem warten, harrt es z.B. auf die Ta¬ 
statureingabe des Benutzers aus. ln einem 
Singletask-System ist das ohne weitere Anfor¬ 
derungen durchführbar: Eine Endlosschleife 
fragt die Tastatur ab. bis das gewünschte Er¬ 
eignis eintritt. Das ist zwar keine besonders 
sinnvolle Beschäftigung für den Prozessor, aber 
es schadet ja auch nicht, da für den Computer 
in dieser Zeit ohnehin nichts zu tun ist. 

Beim Multitasking hingegen bedeutet es aus 
Prozessorsicht eine höllische Zeitverschwen¬ 
dung. ständig irgendein Ereignis abzufragen. 
Denn diese Prozessorzeit könnte viel sinnvol¬ 
ler anderen Tasks zugeführt werden. Das War¬ 
ten in Endlosschleifen, auch »Busy Wait« oder 
»Polling« genannt, ist also Gift für jede Mul¬ 
titasking-Umgebung und daher nicht nur beim 
Amiga zu vermeiden. In der modularen Ar¬ 
chitektur des Amiga-Betriebssystems ist jedem 
Funktionsbereich seine eigene Software¬ 
schnittstelle zugeordnet, und für Tastaturein¬ 
gaben ist das Input-Device zuständig. Salopp 
ausgedrückt gestaltet sich das »multitasking¬ 
freundliche Warten« auf eine Tastatureingabe 
etwa folgendermaßen: Der Task signalisiert 


Exec, daß er auf ein Ereignis warten muß. Dies 
führt dazu, daß er zunächst aus der Warte¬ 
schlange der um Prozessorzeit konkurrierenden 
Tasks ausgekoppelt wird und nun gar nichts 
mehr tut, bis ein Signal vom Input-Device ein¬ 
trifft. Anhand des gesetzten Signales erkennt 
Exec, daß der Wartezustand des Tasks aufge¬ 
hoben ist und klinkt ihn wieder in die Warte¬ 
schlange ein. Wenn der Task das nächste Mal 
Prozessorzeit erhält, kann er die Nachricht des 
Input-Devices, also die Tastatureingabe, aus¬ 
werten. Das Wesentliche: Im Wartezustand 
benötigt der Task keinerlei Prozessor-Res¬ 
sourcen. 

Signale sind ein grundlegender Mechanis¬ 
mus von Exec, der die Basis für alle Nach¬ 
richtensysteme, Synchronisationsaufgaben und 
Zugriffsprotokolle darstellt und damit eine ent¬ 
scheidende Voraussetzung zum reibungslosen 
Multitasking schafft. Der gleiche Mechanismus 
gilt natürlich auch für alle weiteren Ereignis¬ 
se, die auf dem Amiga im wesentlich komple¬ 
xeren Umfang stattfinden: Mausbewegungen. 
Diskettenwechsel, Schnittstellenoperationen, 
Grafik- und Tonausgabe zählen ebenso dazu 
wie die simple Textausgabe in ein Terminal. 

Ein Task kann sich demnach in unter¬ 
schiedlichen Zuständen befinden: 
fl »running« (laufend): Der Task ist gerade ak¬ 
tiv. Naturgemäß (ein Prozessor kann nur ein 


Programm abarbeiten) kann dies immer nur ein 
Task, niemals mehrere gleichzeitig, sein. Wird 
der Prozessor nicht gerade zur Bearbeitung von 
Ausnahmebedingungen (Interrupts, Traps und 
Exceptions) benötigt, kann der Task frei über 
ihn verfügen. 

□ »ready« (bereit): Der Task befindet sich in 
der Bereitschaft, bei nächster Gelegenheit 
CPU-Zeit zugeteilt zu bekommen: Er konkur¬ 
riert also mit anderen Tasks im »time-slicing« 
(Zeitscheibenverteilung) um Prozessorzeit, 
fl »waiting« (wartend): Der Task beansprucht 
momentan keine CPU-Zeit, da er auf das Ein¬ 
treffen eines externen Ereignisses warten muß. 
Sobald es eintrifft, ändert sich sein Zustand in 
»ready«. 

Die Task-Struktur: 

Schauen wir uns nun die Struktur des »Task- 
Control-Blocks« an (Bild »Amiga-Interna« er¬ 
ste Seite dieses Artikels). Exec verwaltet eine 
private »TaskRcady«-Liste für alle Tasks im 
»ready«-Status, und eine private »TaskWait«- 
Liste für alle sich im »waiting«-Status befind¬ 
lichen Tasks. Zum Auffinden eines Tasks mit 
bekanntem Namen existiert die Funktion 
»FindTaskO«. Sie durchforstet beide Listen 
und retourniert die Task-Adresse. Übergibt 
man Null, läßt sich so die Adresse des eigenen 
Tasks in Erfahrung bringen. 


/* Dieses Programm demonstriert die Task-Generation 

MEMF CLEARIMEMF PUBLIC); 

* und eine mögliche Kommunikationsfähigkeit. 

/* Die Adresse unseres Tasks */ 

* Beim Kompilieren unbedingt die StackCheck-Option 

MainTask=FindTask(NULL); 

* deaktivieren. 

if( Tochter && TaskStack ) 

* Programmautor: Rainer Zeitler 

( TochterStartedSig=AllocSignal(-1L); 

*/ 

if( TochterStartedSig ) 

linclude <exec/types.h> 

{ /* Priorität des Tochter-Tasks */ 

ftinclude <exec/memory.h> 

Tochter->tc Node.ln Pri = TASKPRI; 

linclude <exec/tasks.h> 

/* Jawoll, es ist ein Task */ 

tinclude <proto/dos.h> 

Tochter->tc Node.ln Type = NT TASK; 

linclude <proto/exec.h> 

/* Der Name des Tochter-Tasks */ 

linclude <stdio.h> 

Tochter->tc. Node. ln Name = TASKNAME; 

/* Untere Grenze des Tochter-Task-Stacks */ 

ttdefine TASKPRI OL 

Tochter->tc SPLower = TaskStack; 

ttdefine TASKNAME "TochterTask" 

/* Obere Grenze des Tochter-Task-Stacks */ 

Idefine STACKSIZE 1000L 

Tochter->tc SPUpper = Tochter->tc SPReg = 

/* Darüber läßt sich nachvollziehen, daß der 

(APTR)((ÜLONG)TaskStack+STACKSIZE); 

* Tochtertask überhaupt seine Arbeit verrichtete */ 


ÜLONG TochterCounter=0; 

AddTask(Tochter,(APTR)TochterTask, OL); 

/* Signal-Bits für die Kommunikation */ 

/* Warten, bis der TochterTask sich meldet */ 

ÜLONG TochterStartedSig=0,StopTochterTaskSig=0; 

printf("Warte auf TochterTask\n"); 

/* Der Task des Hauptprogramms */ 

Wait( lL<<TochterStartedSig ); 

struct Task ‘MainTask; 

printf("TochterTask hat sich gemeldet\n” "5 Sekunden warten\n"); 

void _saveds _interrupt TochterTask(void) { 

Delay( 5*50); 

/* Das Stopsignal anlegen */ 

/* Den TochterTask beenden */ 

StopTochterTaskSig=AllocSignal(-1L); 

printf("Beende TochterTask und warte" " auf Bestätigung\n"); 

/* Dem Haupttask mitteilen, daß wir soweit sind */ 

Signal! Tochter, lL<<StopTochterTaskSig ); 

Signal! MainTask, lL<<TochterStartedSig ); 

/* Auf Bestätigung warten */ 

/* Solange die Variable hochzählen, bis das Stop- 

Wait( lL<<TochterStartedSig ); 

* Signal geschickt wird */ 

printf("TochterTask beendet\n“); 

while! (SetSignal(OL,OL) & 

printf("Zählerstand: %ld\n",TochterCounter); 

(lL<<StopTochterTaskSig)) == 0) 

/* Task entfernen */ 

TochterCounter++; 

RemTaskf Tochter ); 

/* Signal wieder freigeben */ 

/* Signal freigeben */ 

FreeSignal( StopTochterTaskSig ); 

FreeSignalf TochterStartedSig ); 

/* Beenden bestätigen */ 

) ) 

Signal! MainTask, lL<<TochterStartedSig ); 

/* Speicher freigeben */ 

/* Wichtig: So schläft der Task für immer und 

if( TaskStack ) 

* wir können ihn gefahrlos via RemTaskO entfernen */ 

FreeMeml TaskStack, STACKSIZE ); 

Wait(0); 

) 

if( Tochter ) 

FreeMeml Tochter, sizeof(struct Task) ); 

main(long arge, char “argv) { 
struct Task *Tochter=AllocMem(sizeof(struct Task), 

) © 1993 MSlT 

MEMF CLEARIMEMF PUBLIC); 

» raskDemo.c«: Demonstriert das Einrichten eines Tasks 

APTR TaskStack=AllocMem(STACKSIZE, 

und die Kommunikationsmöglichkeiten via Signalen 

— 
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Ist ein Task nicht aktiv, wird er über 
»tc_Node« mit einer der beiden Listen verket¬ 
tet. Der Eintrag »ln_Type« enthält den Wert 
»NT_TASK« (1), in »ln_Fri« läßt sich die Prio¬ 
rität angeben. Dies erfolgt in der Regel per 
Aufruf der Exec-Funktion »SetTaskPriO«. 
Werte im Bereich von -20 bis +20 stellen die 
Standardeinstellungen für System-Tasks dar. 
Besteht kein besonderer Anlaß für höhere 
Werte, sollte die Priorität eines Tasks 
grundsätzlich Null sein. 

Gemäß den zuvor erläuterten Mechanismen 
des Multitaskings bringt es auch wenig, die 
Task-Priorität einfach wahllos zu erhöhen, et¬ 
wa in der Hoffnung, das eigene Programm da¬ 
durch schneller zu machen. Wenn sich alle 
Tasks an die genannten Konventionen halten, 
erhält das prozessorintensivste Programm oh¬ 
nehin die dickste Zeitscheibe. Unsinnig hohe 
Taskprioritäten auf Anwenderprogrammebene 
können allerdings zu ernsthaften Schwierig¬ 
keiten führen, wenn Systemprogramme des¬ 
wegen nicht mehr genügend Prozessorzeit er¬ 
halten. Über den aktuellen Status des Tasks 
gibt der Eintrag »tc_State« Auskunft, wobei 
dieser ebenso wie »tc_Flags« von Exec ver¬ 
waltet wird. 

Multitasking-Steuerung: 

»tcJDNestCnt« steht für »Interrupt Disab- 
le Nesting Counter«, »tc_TDNestCnt« ent¬ 
sprechend für »Task Disable Nesting Counter«. 
Beides hängt mit wichtigen Kcntrollmecha- 
nismen zusammen, über welche der Program¬ 
mierer Einfluß auf die Multitaskingsteuerung 
nehmen kann. 

Im Programmiermodell des MC680x() exi¬ 
stieren grundsätzlich zwei Zustände, in wel¬ 


/* task example --- F.J. Reichert 1993 */ 

tdefine TFLGF TIMERSET 0x0001 

tinclude <exec/types.h> 

tdefine TFLGF WATCH 0x0002 

tinclude <exec/memory.h> 

tdefine TFLGF BUSYWAIT 0x0004 

tinclude <exec/tasks.h> 

struct TaskTag { 

(tinclude <devices/timer.h> 

struct Task ttJTask; 

tinclude <graphics/gfxbase.h> 

ULONG tt_flags; 

tinclude <graphics/gfx.h> 

UBYTE volatile tt_SigBit[SIG_MAX]; 

tinclude <graphics/g£xmacros.h> 

struct Task* volatile tt_SigTask[SIG MAX]; 

tinclude <intuition/gadgetclass.h> 

UBYTE* volatile ttjnessage; 

tinclude <intuition/intuition.h> 

UWORD volatile ttjnsglen; 

tinclude <Intuition/intuitionbase.h> 

ULONG volatile tt_lcount; 

tinclude <libraries/gadtools.h> 

struct MsgPort *tt_timerport; 

tinclude <proto/dos.h> 

struct timerequest *tt_timerequest,tt_cyclic; 

tinclude <proto/exec.h> 

struct Library *tt_timerbase; 

tinclude <proto/graphics.h> 

struct timeval volatile tt_tvO,tt_tvTskEntry,tt_tvUsed,tt^tvExpd; 

tinclude <proto/timer.h> 

int volatile tt_cpu; 

tinclude <proto/intuition.h> 

); 

tinclude <proto/gadtools.h> 

tdefine TSK_SHOWMSG(t) ((t)->tt_SigTask[SIG_SHOWMSG]) 

tinclude <stdio.h> 

tdefine TSR EXIT(t) ((t)->tt_SigTask[SIG EXIT]) 

tinclude <stdlib.h> 

tdefine TSR REPLY(t) ((t)->tt__SigTask[SIG REPLY]) 

tinclude <string.h> 

tdefine BIT SHOWMSG(t) ((t)->tt_SigBit[SIG .SHOWMSG]) 

tinclude <clib/macros.h> 

tdefine BIT„EXIT(t) ((t)->tt_SigBit[SIG^EXIT]) 

tdefine STACKSIZE (4*1024) 

tdefine BIT REPLY(t) ( (t) ->tt_SigBit[SIG_REPLY]) 

tdefine TASKPRI 0 

tdefine MSR SHOWMSG(t) (1L « BIT_.SHOWMSG(t)) 

tdefine TASKNAME "Sample Task" 

tdefine MSR EXIT(t) (1L « BIT_EXIT(t)) 

tdefine SIG SHOWMSG 0 

tdefine MSR REPLY(t) (1L « BIT REPLY(t)) 

tdefine sig_exit l »TaskDemo 2.c«: Die zweite 

tdefine TimerBase (t->tt_timerbase) 

2 Demo ist noch ausführlicher 

extern struct IntuitionBase *IntuitionBase; 
extern struct Library ‘GadToolsBase; 

tdefine gad reply o und wartet aut Antworten des 

extern struct GfxBase *GfxBase; 

tdefine gad mode i Benutzers (Listinganfang) 

void _interrupt Launch(void) { 

tdefine GAD MAX 2 

struct TaskTag *t = (struct TaskTag*(FindTask(NULL); 

struct MemTag fstruct MemList mt ML; 

if(t->tt_flags & TFLGF.TIMERSET) { 

struct MemEntry mt ME; 

t->tt_flags |= TFLGF_WATCH; 

>; 

t->tt_lcount++; 


chen System- und Anwenderprogramme abge¬ 
arbeitet werden. Man unterscheidet zwischen 
Supervisor- und User-Modus. Der Supervisor- 
Modus ist den Interrupts, Prozessor-Exceptions 
und -Traps, also den Ausnahmebedingungen 
Vorbehalten. Im User-Modus finden alle übri¬ 
gen Programmabläufe statt. Nun kann es in 
manchen Fällen sinnvoll oder sogar notwendig 
sein, daß der gerade laufende Task nicht von 
anderen Tasks gestört oder unterbrochen wird, 
etwa beim Zugriff auf Systemstrukturen, die 


auch von anderen im User-Modus laufenden 
Tasks verändert werden können. Hierzu ist es 
notwendig, das Task-Scheduling kurzfristig zu 
unterbinden - mit der Exec-Funktion »For- 
bid()« (Verbieten). Das Pendant zum Wieder¬ 
eintritt ins Multitasking lautet »PermitO« (Er¬ 
lauben). Die Aufrufe sind schachtelbar, wobei 
jedesmal »tc_TDNestCnt« herauf- bzw. her¬ 
untergezählt wird. Solange dieser Wert un¬ 
gleich Null ist, ist der aktuelle Task garantiert 


der einzige, der abgearbeitet wird. Existieren 
für teilbare Systemressourcen keine eigenen 
Zugriffsprotokolle und besteht die Gefahr, daß 
der Eingriff weiterer Benutzer zu Unbestän¬ 
digkeiten führt, stellt dieser Mechanismus die 
letzte Möglichkeit einer Schutzmaßnahme dar. 

Einen Schritt weiter kann man gehen, indem 
zusätzlich zum Task-Scheduling auch noch die 
im Supervisor-Modus laufenden Ausnahme- 
bedingungen unterbunden werden. Dies ist bei¬ 
spielsweise nötig, wenn Systemstrukturen auch 


auf der Ebene der Ausnahmebehandlungen 
geändert werden müssen. Ein gutes Beispiel 
dafür sind die beiden erwähnten Systemlisten 
für Tasks. Der Task-Scheduler (auf Interrupt- 
Ebene) ist quasi zu jedem beliebigen Zeitpunkt 
am Werk. Wollte ein Task (im User-Modus) 
die Listen untersuchen - sie wären stets in¬ 
konsistent! Kaum hätte er den ersten Eintrag 
gelesen, könnte er schon wieder den Prozessor 
verlieren, und bei seiner nächsten Chance hät- 


Sanp le_Task 


. _ j 



Tasks und Kommunikation: Mit diesem Requester meldet sich unser Demopro¬ 
gramm und wartet auf Antwort 
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GetSysTime(4t->tt_tvTskEntry); 

}) 

Idefine MILLION 1000000L 
void _interrupt Switch(void) { 
struct TaskTag *t = (struct TaskTag‘)FindTask(NULL); 
if(t->tt_flags & TFLGF.WATCH) { 
t->tt_flags 4= -TFLGFWATCH; 
GetSysTime(4t->tt_timerequest->tr_time); 
t->tt_tvExpd = t->tt_timerequest->tr_time; 
SubTime(4t->tt_tvExpd,4t->tt_tvO); 
SubTime(4t->tt.timerequest->tr_time,4t->tt.tvTskEntry); 
AddTime(4t->tt_tvUsed,4t->tt_timerequest->tr_tiine); 
t->tt_cpu = 100L * (t->tt_tvUsed.tv.8ecs * MILLION 
+ t->tt_tvüsed.tvjnicro) / (t->tt.tvExpd.tv_secs 
* MILLION + t->tt_tvExpd.tv_micro); 

}) 

void _interrupt DisposeWindowlstruct Window *w) { 
struct Gadget *g = w->FirstGadget; 

CloseWindow(w); 

FreeGadgets(g); 

} 

Idefine G.WIDTH 100 
Idefine G.HEIGHT 30 

Idefine B_TOP(w) ((w)->BorderTop + 5 + G.HEIGHT) 

Idefine B.LEFT(w) ((w)->BorderLeft + 3) 

Idefine B.HEIGHT(w) {(w)->Height - (w)->BorderTop -\ 
(w)->BorderBottom - G_HEIGHT - 7) 

Idefine B.WIDTH(w) ((w) ->width - (w)->BorderLeft -\ 
(w)->BorderRight - 6) 
struct Gadget *wg[GAD_MAX]; 
struct Window* _interrupt InitWindow(void) { 

APTR vi; struct NewGadget ng; 
struct Screen *ps; struct Window *w; 
struct Gadget *gl,*gad = NULL; 
if(ps = LockPubScreen(NULL)) ( 
if(vi = GetVi8ualInfoA(ps,NULL)) { 
if(gad = CreateContext(4gl)) { 
static UBYTE *cycle.labels[] = { 

"Signal Wait","Busy Wait\NULL 

); 


ng.ng_LeftEdge = ps->WBorLeft + 3; 
ng.ng.TopEdge = ps->BarHeight + 4; 
ng.ng.Width = G.WIDTH; 
ng.ng.Height = G.HEIGHT; 
ng.ng_VisualInfo = vi; 
ng.ng GadgetText = "Reply"; 
ng.ng_TextAttr = ps->Font; 
ng.ng_Flags = PLACETEXT IN; 
ng.ngGadgetID = 0; 
ng.ng_U8erData = NULL; 

wg[GAD REPLY) = gad = CreateGadget(BUTTON KIND, 
gad,4ng,GA_Disabled,1L,TAG DONE); 
ng.ng_LeftEdge = gad->LeftEdge + gad->Width + 1; 
ng.ng_Width = G_WIDTH *2+1; 
ng.ng^GadgetText = NULL; 
ng.ng_GadgetID = 1; 

wg[GAD.MODE] = gad = CreateGadget(CYCLE_ KIND,gad,4ng, 
GTCY_Labels,cycle.labels, 

GTCY_Active,OL,TAG_DONE); 
if(w = OpenWindowTags(NULL, 

WA_ Flags,(ÜLONG)WFLG_DEPTHGADGETIWF LG DRAGBAR, 

WA.IDCMP,(ULONG)IDCMP GADGETUP, 

WA InnerHeight,(ULONG)G_HEIGHT + 80L, 

WA InnerWidth,(ULONG)G.WIDTH *3+8, 

WA_Gadgets,gl, 

WA Title,TASKNAME, 

WA_PubScreen,ps, 

TAG.DONE)) { 

GT_RefreshWindow(w,NULL); 

SetAPen(w->RPort,1); 

SetBPen(w->RPort,0); 

SetDrMd(w->RPort,JAM2); 

Dr awBeve 1 Box (w- > RPor t, B.LEFT (w), 

B.TOP(W),B.WIDTH(w),B_HEIGHT(w), 
GT_VisualInfo,vi,GTBB_Recessed,1L,TAG.D0NE); 

) 

eise FreeGadgets(gl); 

) 

FreeVisuallnfo(vi); 


) 

UnlockPubScreen(NULL,ps); 

) 

return(w); 

} 


»TaskDemo_2.c«: Demonstriert 
das Einrichten von Tasks und 
die Kommunikationsmöglich- 
keiten (Listingfortsetzung) 


void _interrupt print(struct Window *w,UBYTE *text,int top,int len) { 
SetAPen(w->RPort,0); 

RectFill(w->RPort,B.LEFT(w) + 2,top - 

w->RPort->Font->tf.Baseline,B.WIDTH(w) + 4, 

top + w->RPort->Font->tf_YSize - w->RPort->Font->tf_Baseline); 

Move(w->RPort,B.LEFT(w) + (B.WIDTH(w) - TextLength 

(w->RPort,text,len)) / 2,top); 

SetAPen(w->RPort,1); 

Text(w->RPort,text,len); 

) 

void _interrupt ShowCPUl struct Window *w, struct TaskTag *t) { 

UBYTE cpu.string[32); 

sprintf(cpu.string,"Sw/s=%21d, CPU (%ld/%ld) %2d%%”, 
t->tt_lcount / MAX(t->tt.tvExpd.tv_secs,l), 
t->tt_tvUsed.tv_8ecs,t->tt_tvExpd.tv_secs,t->tt_cpu); 
print(w,cpu.string,B.HEIGHT(w) / 2 - 
w->RPort->Font->tf_Baseline + B_TOP(w),strlen(cpu.string)); 

) 

Idefine AMIGAOS.V.37 37 
void _saveds _interrupt SampleTask(void) [ 
struct TaskTag *t; 
struct Window *w; 

t = (struct TaskTag*IFindTask(NULL); 
if(GfxBase = (struct GfxBase*) 

OpenLibrary("graphics.library",AMIGAOS.V.37)) { 
if(IntuitionBase = (struct IntuitionBase*) 

OpenLibrary("intuition.library",AMIGAOS.V.37)) { 
if(GadToolsBase = OpenLibrary)"gadtools.library",AMIGAOS.V.37)) { 
if(w = InitWindowO) { 
if(tott.timerport = CreateMsgPortf)) { 
if(t->tt_timerequest = (struct timerequest*) 
CreateIORequest(t->tt_timerport,sizeof(struct timerequest))) { 
if(OpenDevice(TIMERNAME,UNIT.VBLANK, 
t->tt_timerequest,OL) == 0) { 
tott.cyclic = *t->tt_timerequest; 
t->tt.timerbase = (struct Library*) 
t->tt.timerequest->tr_node.io_Device; 

GetSysTime(4t->tt_tv0); 

t->tt_flags |= TFLGF.TIMERSET; 

t->tt_cyclic.tr_node.io Command = TR.ADDREQUEST; 

t->tt_cyclic.tr_time.ty.sec8 = 0L; 

t->tt_cyclic.tr_time.tv_micro = 400000L; 

SendIO(4t->tt_cyclic.tr node); 

if((BIT.SHOWMSG(t) = AllocSignal(-1L)) != -1) { 

TSR.SHOWMSG(t) = FindTask(NULL); 

if((BIT.EXIT(t) = AllocSignal(-1L)) != -1) { 

TSK.EXIT(t) = FindTask(NULL); 

SignallTSK REPLY(t),MSK REPLY(t)); 
while(l) { 

ULONG sigset; 

if(t->tt_flags 4 TFLGF BUSYWAIT) { 
sigset = SetSignal(0L,MSK EXIT(t) 

I MSK SHOWMSG(t) 

I 1L << t->tt_timerport->mp_SigBit 
I 1L << w->U8erPort->mp.SigBit); 

) 

eise { 

sigset = Wait(MSK.EXIT(t) 

I MSK SHOWMSG(t) 

I 1L << t->tt_timerport->mp.SigBit 
I 1L << w->UserPort->mp.SigBit); 

) 

if(sigset 4 1L << t->tt.timerport->mp_SigBit) { 
t->tt_cyclic.tr.node.io.Command = TR.ADDREQUEST; 
t->tt_cyclic.tr.time.tv.secs = 0L; 
t->tt_cyclic.tr.time.tv_micro = 400000L; 
SendIO(4t->tt_cyclic.tr_node); 

ShowCPU(w,t); 

} 

if (sigset 4 MSK.EXIT(t)) { 
break; 

) 

if(sigset 4 MSK.SHOWMSG(t)) { 

GT.SetGadgetAttrs(wg[GAD REPLY],w,NULL, 

GA.Disabled,0L,TAG.DONE); 

RefreshGList(wg[0],w,NULL,1); 
print(w,t->tt_message, 

B.TOP(w) + B.HEIGHT(w) / 2 + 
w->RPort->Font->tf„Baseline,t->tt_msglen); 

} 

if(sigset 4 1L << w->UserPort->mp.SigBit) [ 
struct IntuiMessage *imsg; 
while(imsg = GT_GetIMsg(w->UserPort)) { 

ÜLONG im_code,im_class; 
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te der Scheduler möglicherweise die Liste 
schon wieder völlig umsortiert. Das hierfür vor¬ 
gesehene Schutzprotokoll lautet »DisableO« 
(Unterbinden), das Gegenstück »EnableO« 
(Ermöglichen). Beide Funktionen schalten 
Ausnahmeverarbeitungen über das entspre¬ 
chende Hardware-Register des Custom-Chips 
»Paula« aus oder ein. Die Zustandsvariable 
»tc_IDNestCnt« wird nach dem zuvor erläu¬ 
tertem Schema beeinflußt. Es ist im übrigen un¬ 
sinnig. nach einem DisableO noch ein ForbidO 
nachzuschieben. Da der Task-Scheduler schon 
beim Ausschalten der Ausnahmeverarbeitun¬ 
gen stillgelegt wird, findet konsequenterweise 
auch kein Umschalten der Tasks statt. 

Vitale Bedürfnisse 

So nützlich die beschriebenen Mechanismen 
in bestimmten Fällen sein können, so gefähr¬ 
lich kann es werden, wenn allzu sorglos damit 


umgegangen wird. Auch wenn der Gebrauch 
von »ForbidO« auf den ersten Blick ungefähr¬ 
lich scheint, muß man sich doch stets vor Au¬ 
gen halten, daß jeder überflüssige Aufruf dem 
ansonsten gleichförmigen und störungsfreien 
Multitasking ein abruptes »Stillgestanden« 
verordnet. »ForbidO« ist also genauso wie das 
unüberlegte Heraufsetzen der Taskpriorität 
keineswegs ein probates Mittel, dem eigenen 
Programm zu mehr Geltung zu verhelfen, son¬ 
dern unter dieser Prämisse schlicht ein nutzlo¬ 
ser Störfaktor. 

Richtig gefährlich kann dagegen sorgloses 
Unterbinden der Ausnahmebehandlungen wer¬ 
den. Das Amiga-Betriebssystem ist darauf an¬ 
gewiesen. daß diese peinlich genau und nahe¬ 
zu in Echtzeit ablaufen können. Denn was pas¬ 
siert, wenn beim Menschen längerfristig die 
Atmung aussetzt? Ähnlich »lebensnotwendig« 
ist die Abarbeitung der Ausnahmebehandlun¬ 


gen. Länger als 250 Mikrosekunden (0,00025 
sec.) darf dieser Zustand nicht anhalten, sonst 
kann es passieren, daß sich der Amiga bis zum 
EnableO-Aufruf bereits verabschiedet hat. Das 
für den Benutzer sichtbare Resultat ist dann in 
der Regel ein Absturz. 

Die vier in der Task-Struktur vorkommenden 
Einträge »tc_SigAlloc«, »tc_SigWait«, »tc_Si- 
gRecvd« und »tc_SigExcept« führen uns wie¬ 
der zum erwähnten Signalisationsmechanismus 
für externe Ereignisse zurück. Insgesamt ver¬ 
fügt jeder Amiga-Task über 32 Signale - jedes 
Bit der genannten Lang wortein träge repräsen¬ 
tiert eines davon. Die unteren 16 Bit sind für 
Systemzwecke reserviert, die oberen stehen für 
den Anwender zur Verfügung. Bevor ein Si¬ 
gnal-Bit benutzt werden kann, muß es über die 
Exec-Funktion »AlloeSignalO« angefordert 
werden. Im Parameter kann entweder eine be¬ 
stimmte Bit-Nummer oder einfach -I angege- 


APTR im address; 

Signal(TSR REPLY(t),MSR REPLY(t)); 

im dass = imsg->Class; 

Wait(OL); /* Wait forever... */ 

im code = imsg->Code; 

) 

im address = imsg->IAddress; 

void main(void) ( 

GT ReplylMsg(imsg); 

struct TaskTag *ptt; struct MemList *pml; 

8witch(im dass) ( 

struct MemTag aal; UBYTE SigBit; APTR stk; 

case IDCMP GADGETUP: 

aml.mt ML.ml Node.ln Type = NT MEMORY; 

switchf((struct Gadget*) 

aml.mt_ML.ml_Node.ln_Pri = 0; 

im address)->GadgetID) ( 

aml.mt ML.ml Node.ln Name = TASRNAME; 

case GAD REPLY: 

aml.mt ML.ml NumEntries = 2; 

GT SetGadgetAttrs(wg[GAD REPLY], 

aml.mt. ML.ml ME[0].me ..Un.meu Reqs = MEMF PUBLICIMEMF CLEAR; 

w,NULL,GA Disabled,1L,TAG D0NE); 

aml.mt ML.ml ME[0].me Length = sizeof(struct TaskTag); 

RefreshGList(wg[0],w,NULL,1); 

aml.mt_ML.mlME[l].me Un.meu_Reqs = MEMF CLEAR; 

Signal(TSR REPLY(t),MSR REPLY(t)); 

aml.mt ML.ml ME[1].me_Length = STACRSIZE; 

break; 

pml = AllocEntry(4aml.mt ML); 

case GAD MODE: 

if(!((ULONG)pml 4 (1L « 31))) ( 

switch(im code) ( 

ptt = (struct TaskTag*) pml->ml ME[0].me Un.meu Addr; 

case 0: 

stk = (APTR) pml->ml ME[1].me Un.meu Addr;; 

t->tt flags 4= -TFLGF BUSYWAIT; 

ptt->tt Task.tc Node.ln Pri = TASRPRI; 

break; 

ptt->tt_Task.tc_Node.ln Type = NT TASR; 

case 1: 

ptt->tt Task.tc Node.ln Name = TASRNAME; 

t->tt flags |= TFLGF BUSYWAIT; 

pttott. Task.tc^SPLower = stk; 

break; 

pttott Task.tc_SPReg = 

default: 

ptt->tt Task.tc SPUpper = (APTR)((UL0NG)stk + STACRSIZE); 

break; 

NewList(4ptt->tt_Task.tc_MemEntry); 

) 

AddHead(4ptt->tt Task.tc MemEntry,4pml->ml Node); 

break; 

if((SigBit = AllocSignal(-lL)) != -1) ( 

default: 

BIT REPLY(ptt) = SigBit; 

break; 

TSR REPLY(ptt) = FindTask(NULL); 

) 

AddTask(4ptt->tt Task,(APTR)SampleTask,OL); 

break; 

DisableO; 

default; 

ptt->tt Task.tc Launch = Launch; 

break; 

ptt->tt Task.tc Switch = Switch; 

)))) 

ptt->tt_Task.tc_Flags 1= (TF..LAUNCHITF.SWITCH); 

AbortI0(4t->tt cyclic.tr node); 

Enable(); 

WaitI0(4t->tt cyclic.tr node); 

Wait(MSR REPLY(ptt)); 

TSR EXIT(t) = NULL; 

while(l) ( 

FreeSignallBIT EXIT(t)); 

int len; 

) 

UBYTE msg buf[128]; 

TSR SH0WMSG(t) = NULL; 

Write(Output(),"Parent: ",8); 

FreeSignallBIT SH0WMSG(t)); 

len = Read(Input 0,msg_buf,128); 

) 

ifOmsgJsuf == '\nO break; 

t->tt flags 4= -(TFLGF TIMERSETITFLGF WATCH); 

ptt->ttjnessage = msgjwf; 

Cl08eDevice(t->tt timerequest); 

ptt->ttjnsglen = len - 1; 

) 

Signal(TSR_SH0WMSG(ptt),MSR. SHOWMSG(ptt)); 

DeletelORequest(t->tt_timerequest); 

Wait(MSK_REPLY(ptt)); 

) 

DeleteMsgPort(t->tt timerport); 

Signal(TSR^EXIT(ptt),MSR_EXIT(ptt)); 

) 

Wait(MSR REPLY(ptt)); 

DisposeWindow(w); 

RemTask(4ptt->ttJTask); 

) 

FreeSignal(SigBit); 

CloseLibrary(GadToolsBase); 

) 

CloseLibrary(4IntuitionBase->LibNode); 

exit(O); 

} 

) © 1993 M&T 

CloseLibrary(4GfxBa8e->LibNode); . 

»TaskDemo 2.c«: Demonstriert das Einriehten von Tasks 

ForbidO; 

und die Kommunikationsmöglichkeiten (Listingende) 
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ben werden, womit die nächste freie Signal- 
Bit-Nummer angefordert wird. Die Funktion 
liefert entweder eine Bit-Nummer oder, bei 
Mißerfolg, -I, falls alle Signal-Bits schon be¬ 
legt sind. Vermerkt wird ein benutztes Signal- 
Bit im privaten Eintrag »tc_SigAlloc« als ge¬ 
setztes Bit. »FreeSignalO« schließlich hebt die 
Reservierung wieder auf. Man sollte niemals 
versuchen, allgemein gültige Annahmen dar¬ 
über zu treffen, welches Signal-Bit wozu ver¬ 
wendet wird. Da Exec diese vollkommen dy¬ 
namisch verwaltet, müssen sie Uber das ge¬ 
nannte Schutzprotokoll angefordert und auch 
wieder freigegeben werden. 

Warten auf Signale 

Ein Task tritt u.a. in den Wartezustand, in¬ 
dem er die Funktion »WaitO« mit einer Bit- 
Maske aufruft, in der alle zu erwartenden Si¬ 
gnal-Bits gesetzt sind. Diese Funktion liefert 
beim Auftreten von wenigstens einem der ge¬ 
wünschten Signale die entsprechende Bit-Mas¬ 
ke der tatsächlich aufgetretenen Signale zurück 
und löscht gleich darauf die Signale in tc_Si- 
gRecvd. Aus der Sicht eines fremden Tasks er¬ 
folgt die Signalisierung eines Ereignisses über 
die »Signal()«-Funktion, welche als Parameter 
die Adresse der Task-Struktur und die Signal¬ 
maske erwartet. Wie bereits erwähnt, ver¬ 
braucht ein im Wartezustand befindlicher Task 
keine Prozessorzeit. Er wird der TaskReady-Li- 
ste entnommen und in die TaskWait-Liste ein¬ 
gegliedert. Im Eintrag tc_SigWait sind dieje¬ 
nigen Bits gesetzt, auf deren Eintreffen ge¬ 
wartet wird. tc_SigRecvd enthält die Bit-Mas¬ 
ke der aufgetretenen Signale. Explizites Setzen 
oder Löschen eigener Signale erfolgt per Set- 
SignalO-Funktion. Zwei Parameter erwartet 
sie: Im ersten gibt man den neuen Status der 
Signale in Form einer Bit-Maske an (gelöscht 
oder gesetzt), im zweiten ebenfalls eine Bit¬ 
maske, welche die - wenn gesetzt - betroffe¬ 
nen Signale kennzeichnet. 

Im Zusammenhang mit der Multitasking¬ 
steuerung ist zu erwähnen, daß ein Forbid- oder 
Disable-Status durch alle expliziten und im¬ 
pliziten Aufrufe von Funktionen, die den Task 
in einen Wartezustand versetzen, natürlich 
durchbrochen werden. Würde Exec Ausnah¬ 
mebearbeitungen und Multitasking trotz War- 
tezustand nicht wieder zulassen, käme es 
zwangsläufig zu einem »Deadlock« - dem 
Stillstand des Systems. Warum? Der Task war¬ 
tet auf ein externes Ereignis, das gar nicht mehr 
auftreten kann. Nach Beendigung des Warte¬ 
zustands tritt der Task allerdings sofort wieder 
in den entsprechenden Sonderstatus ein. Ein 
beabsichtigter Schutzprotokoll-Effekt, für wel¬ 
chen Zweck auch immer, ist natürlich mit dem 
Eintritt in den Wartezustand hinfällig. Niemand 
kann vorhersehen, welche Tasks oder Aus¬ 
nahmeverarbeitungen in der Zwischenzeit zum 
Zuge kommen können. 

tc_SigExcept schließlich enthält die Maske 
der Signale, die bei ihrem Auftreten eine 
»Task-Exception«, also eine Exec-spezifische 
Ausnahmebehandlung (nicht identisch mit Pro- 
zessorexceptions, [1), S. 473) auslösen. Ähn¬ 
liches gilt für »Traps«, die über die Einträge 


»tc_TrapAlloc« und »tc_TrapAble« verwaltet 
werden. Die vier Funktions- und Datenzeiger 
»tc_ExceptData«, »tc_ExceptCode«, »tc_Trap- 
Data« und »tc_TrapCode« sind ebenfalls für 
die Ausnahmeverarbeitungen vorgesehen. 



Name/Offset Aufruf und Parameter 

FindTask 

-294 

struct Task 'FindTask(STRPTR) 
task=FindTask(name) 

DO A0 

SetTaskPri 

-300 

BYTE SetTaskPri (struct Task *, LONG) 
oldPri=SetTaskPri(task,newpri) 

DO A0 DO 

Forbid 

-132 

void Forbid(void) 

Permit 

-138 

void Permit(void) 

Disable 

-120 

void Disable(void) 

Enable 

-126 

void Enable(void) 

AllocSignal 

-330 

BYTE AllocSignal(BYTE) 
signalNum=AllocSignal(signalNum) 

DO DO 

FreeSignal 

-336 

void FreeSignal(BYTE) 
FreeSignal(signalNum) 

DO 

Wait 

-318 

Signal 

-324 

SetSignal 

-306 

ULONG Wait(ULONG) 
signals=Wait(SignalSet) 

DO DO 

void Signal(struct Task ", ULONG) 
Signal(task,Signals) 

A0 DO 

ULONG SelSignalfULONG,ULONG) 
oldSigs=SetSignal(newSigs,SigMask) 

DO DO Dl 

AddTask 

-282 

APTR AddTaskfslruct Task ’.APTR.APTR) 
newtask=AddTask(task,StartPC,finalPC) 
AO AI A2 A3 

RemTask 

-288 

void RemTask(struct Task *) 
RemTask(task) 

Al 


Speicher stapelweise 

Die drei folgenden Zeiger dienen der Ver¬ 
waltung des Stapelspeichers eines Tasks. Beim 
MC680x() werden Stacks von oben nach unten 
angesprochen: »Oben« bezeichnet dabei die 
höchste Adresse, »Unten« die niedrigste des 
Speichersegments, auf welches die Zeiger 
»tc_SPUpper« (oben) und »tc_SPLower« (un¬ 
ten) verweisen. Der aktuelle Wert des Stack- 
Zeigers wird im Zeiger »tc_SPReg« abgelegt. 
Im neu initialisierten (d.h. noch unbenutzten) 
Stack ist diese Adresse mit der oberen Grenze 
identisch. Das Ablegen von Operanden auf den 
Stack erniedrigt den Wert des Stack-Zeigers, 
das Herunternehmen dagegen erhöht ihn um 
den Betrag der Operandenlänge. 

Die Klinkenputzer 

Zwei weitere Einträge in der Task-Struktur 
sind von besonderem Interesse: »tc_Launch« 
und »tc_Switch«. Diese Adressen werden im¬ 
mer dann angesprungen, wenn der Task den 
Zugriff auf den Prozessor erhält (launch = star¬ 
ten) oder ihn verliert (switch = umschalten). 
Dies geschieht allerdings nur. wenn im Eintrag 
»tc_Flags« die korrespondierenden Flagbits 


»TF_SWITCH« bzw. »TF_LAUNCH« ge¬ 
setzt sind. Zu speziellen Zwecken kann es 
durchaus sinnvoll sein, vor und nach jedem Zu¬ 
griff auf den Prozessor - unabhängig vom ei¬ 
gentlichen Programmlauf - nochmal in eine 
Routine zu springen, in der etwa Initialisie- 
rungs- und Aufräumungsarbeiten erledigt wer¬ 
den können. Für den normalen Gebrauch sind 
diese Einträge aber weitestgehend bedeu¬ 
tungslos und sollten auf Null gesetzt werden. 

Die Liste »tc_MemEntry« dient zur Ver¬ 
waltung des Speicherplatzes, den der Task an¬ 
fordert. Hier können Strukturen vom Typ 
»MemList« verkettet werden. Die Besonder¬ 
heit: Dieser Speicher wird automatisch freige¬ 
geben. wenn Exec den Task nach Beendigung 
wieder entfernt. Sinnvollerweise werden hier 
zunächst der Speicherplatz für die Task-Struk¬ 
tur selbst und den notwendigen Stack abgelegt. 

Der letzte Eintrag. »tcJUserData«, wird 
vom Amiga-Betriebssystem ignoriert und kann 
für eigene Zwecke verwendet werden. 

Nachdem nun die äußere Struktur eines 
Tasks klar ist. fehlt noch das Wichtigste: Wie 
werden Tasks gestartet und wieder entfernt? 
Hierzu bietet die Exec-Library die Funktion 
»AddTaskO« an. Sie erhält neben einem Zei¬ 
ger auf die Task-Struktur die Start- und Enda¬ 
dresse als Argumente. Als Endadresse kann 
ebensogut Null übergeben werden: Exec sieht 
für diesen Fall einen voreingestellten Ausweg 
am Ende der Laufzeit vor. Entfernt wird ein 
Task via »RemTaskO«, die sich mit der Adres¬ 
se der Task-Struktur als Parameter begnügt. 

Im ersten Beispielprogramm wird gezeigt, 
wie ein Programm einen eigenen Tochter-Task 
ins Leben ruft und beide mit den vorgestellten 
Signalmechanismen kommunizieren. 

Das zweite Programm ist noch ausführlicher. 
Auch hier startet das Programm einen Tochter- 
Task. Vom Hauptprogramm lassen sich nun 
Nachrichten per Tastatur an den Tochter-Task 
übergeben. Dieses Spiel kann nach einer Be¬ 
stätigung seitens des Tochter-Tasks (Schalter 
»Reply« betätigen) fortgesetzt werden, bis ei¬ 
ne leere Eingabezeile beide Tasks beendet. Zu¬ 
sätzlich besteht die Möglichkeit, vom Tochter- 
Task verschiedene Synchronisationsstrategien 
zu erproben: Einmal das zu bevorzugende 
»Signal-Waiting«, und - als leider nicht selte¬ 
nes Negativbeispiel - das multitaskingfeindli¬ 
che »Busy-Waiting«. 

Der Tochter-Task zeigt in seinem Fenster 
ständig an, wieviel Prozent der verfügbaren 
Prozessorzeit tatsächlich von ihm beansprucht 
werden und wie oft pro Sekunde er von Exec 
Kontrolle über den Prozessor erlangt. Eine da¬ 
zu geeignete Zeitbestimmung erfolgt über das 
Timer-Device in den Mantelroutinen »Switch« 
und »Launch«. 

Wir hoffen, daß Ihnen beim Start des Pro¬ 
gramms das nervöse Hochzählen der Prozes- 
sorbelastung beim Umschalten auf »Busy- 
Waiting« in Erinnerung bleiben wird und als 
Motivation zur konsequenten Ausnutzung der 
Exec-Signalmechanismen dient. ■ 

l.iterulurhinvveise: 

|l) Commodore-Amiga. Inc.: Amiga ROM Kemel Reference Manual. 
Libraries. Third Edition 1992; Addison-Wesley. ISBN 0-201-56774-1 
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Typografie 


Bullet schlägt zu 

Schriften und Schnitte sind für den DTP-Profis das Nonplusultra. Nun gibt es 
im neuen Betriebssystem sogar eine Library, mit der man neue Schriften qua¬ 
si programmieren und alte besser handhaben kann, die »bullit.library«. Wir-.ei¬ 
gen Ihnen, was man mit ihr anfangen kann. Folgen Sie uns in die faszinieren¬ 
de Welt der Typografie. 



ohne Kerning 



Kerning Pair 


»Typographie«: Man spricht von »Unterschneiden«, wenn Buchstaben wie »T« und 
»e« näher als üblich zusammenrücken, um häßliche Lücken zu vermeiden. 


von Ilse ii. Rudolf Wolf 


D ie englischsprachige Fachliteratur nennt 
ein individuelles Symbol in einem Zei¬ 
chensatz (Font) »Glyph«, was soviel 
wie geschnittener Stein bedeutet. Die ebenfalls 
oft verwendete Bezeichnung »Character« (Zei¬ 
chen) ist nicht ganz zutreffend, denn in man¬ 
chen Sprachen kann ein Glyph mehr als nur ei¬ 
nen Teil des Alphabets darstellen. So besteht 
das geschriebene Chinesisch aus Bildern, die 
jeweils einen Begriff darstellen. 

In der arabischen Schrift schreibt man kei¬ 
nen Text, sondern Ligaturen, die jeweils eine 
Zeichengruppe repräsentieren. Auch in unseren 
Zeichensätzen gibt es nicht nur Zeichen, son¬ 
dern auch Ligaturen. Dazu kommen wir noch 
bei der Erläuterung des Begriffs »Kerning«. So 
gesehen ist es daher sinnvoll, wenn wir sagen, 
ein Font ist eine Sammlung von Glyphs in ei¬ 
nem bestimmten Schriftbild (Typeface) und ei¬ 
ner Schriftgröße. Demnach ist eine Font-Fa¬ 
milie eine Sammlung von Fonts, die sich von¬ 
einander nur durch den Schriftstil (kursiv, fett 
usw.) unterscheiden. 

Und Schnitt bitte 

Heute treten viele Schriften in verschiedenen 
Varianten auf, die der deutschsprachige Typo¬ 
graf »Schnitte« nennt, denn jede Variation 
mußte neu »geschnitten« werden. Gebräuchlich 
sind die Abwandlungen Italic (kursiv). Bold 


Mit Gutenberg gings los 


Schon bevor Gutenberg die Erfindung der 
beweglichen Drucklettern gelang, haben 
unzählige Schriftzeichner Schriften kreiert. 
Gutenberg orientierte sich an den handge¬ 
schriebenen Büchern der damaligen Zeit. 
Seine Lettern waren Holzschnitte. Deren 
Schnitt war daher sehr wuchtig. 

Erst mit dem Übergang vom Holz- zum Kup¬ 
ferstich wurden die Linien der Buchstaben 
feiner und kontrastreicher. Gleichmäßige 
Strichstärken bei allen Linien - Hauptlinien 
wie Serifen - brachte erst der Stahlstich. 


(fett) und fett-kursiv. Beim Amiga können die¬ 
se Varianten vom Betriebssystem durch algo¬ 
rithmische Umstellung erzeugt werden. Aus 
schriftgestalterischer Sicht ist ein solcher kur¬ 
siver Schnitt nicht als gelungen zu betrachten, 
denn eine echte Kursiv-Schrift »läuft«, eine al¬ 
gorithmisch Geschrägte fällt dagegen um. 

Fett ist nicht fett 

Ähnliches gilt auch für die fetten Schnitte, 
denn es reicht nicht aus, die Linien der Buch¬ 
staben dicker zu machen. Damit schrumpfen 
die Buchstaben zusammen und die Lesbarkeit 
nimmt ab. Echte fette Schnitte beanspruchen 
daher auch mehr Raum. 

Das Schriftbild wird auch vom Kerning be¬ 
einflußt. Setzt man nämlich Zeichen paarwei¬ 
se nebeneinander, ergeben sich unschöne 


Lücken. Um dem abzuhelfen, legt man für ei¬ 
nen bestimmten Schnitt fest, welche Buchsta¬ 
benpaare (Pair-Kerning) einen veränderten 
Abstand einnehmen. Z.B. lassen die Zeichen 
»T« und »e« im Wort Text zwischen sich eine 
breite Lücke, weil der Querbalken des »T« (die 
Laufweite bestimmend) den Abstand zum »e« 
bestimmt. Schiebt man das »e« ein wenig un¬ 
ter das »T«, verschwindet die störende Lücke. 
In der Typografie nennt man das »unter¬ 
schneiden« (Bild). Das erfordert die gesonder¬ 
te Behandlung so eines Falls. Das Pair-Kerning 
legt für solche Buchstabenpaare einen Korrek¬ 
turwert fest. Zeichensätze dieser Art werden 
auch Proportional-Schriften genannt. 

Im Computer werden Fonts »bitmapped« 
oder »outlined« gespeichert. Die Glyphs von 
Bitmap-Fonts werden als Bilder gesichert, 
während ein Outline-Font nur die Umrisse der 
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Glyphs und wie diese gefüllt werden sollen, be¬ 
schreibt. Schauen wir uns einmal im einzelnen 
an. wie die einzelnen Arten im Detail aussehen: 

Bitmap-Fonts: 

Soll eine Schrift am Computer aufbereitet 
werden, ist zu berücksichtigen, daß die meisten 
Ausgabegeräte digital arbeiten und das Bild ei¬ 
nes Buchstabens aus einzelnen Pixeln zusam¬ 
mensetzen (Rasterung). Je höher die dabei ver¬ 
wendete Auflösung ist. um so weniger nimmt 
das menschliche Auge die Umsetzung wahr. 

Die Rasterung kann zu verschiedenen Zeit¬ 
punkten stattfinden. Entweder durch den Her¬ 
steller. der die Schrift in verschiedenen Schrift¬ 
höhen liefert, oder erst bei der Verwendung am 
Ausgabegerät (Bildschirm oder Drucker). 

Bei der ersten Methode bemüht sich der De¬ 
signer. Pixelversionen (Bitmaps) der Schrift zu 
erzeugen, die möglichst nah an den ursprüng¬ 
lichen Umrißlinien der Buchstaben liegen. Bei 
kleinen Schriftgrößen ist das aber sehr schwie¬ 
rig. denn wie zeichnet man Rundungen und Se- 
rifen. wenn das ganze Zeichen nur acht Pixel 
hoch ist? Ferner müssen die Größen der Schrift 
einzeln gestaltet werden. Würde man nämlich 
nur eine Schrifthöhe entwerfen und deren Bit¬ 
map umskalieren, würden Fehler nicht nur 
übernommen, sondern zusätzlich auch noch 
verstärkt werden. 

Magischer Keks 

Bis zur Workbench 1.3 verwendete der 
Amiga nur Bitmap-Zeichensätze. Für jede 
Schrifthöhe eines verfügbaren Zeichensatzes 
gibt es eine Bitmap-Datei. welche die Daten 
enthält, die benötigt werden, um die Größe die¬ 
ses Zeichensatzes zu erzeugen. 

Alle vom System unterstützten Zeichensät¬ 
ze haben auch ein sogenanntes FontContents- 
File (erkennbar am Suffix ».font«), aus dem ein 
Programm den Zeichensatz und die Schrift¬ 
größe erkennt und damit weiß, wie der Font 
genützt werden kann. 

Das FontContents-File ist eine (definiert in 
<diskfont/diskfont.h>) FontContentsHeader- 
Struktur. Das erste Wort in dieser Struktur ent¬ 
hält ein sog. »Magic Cookie«, welches den 
Font-Typ identifiziert: 

FCHID -> Of00 ;FontContents Bitmap-Font 

TFCH_ID -> Of02 ;TFontContents 

0FCH_ID -> Of03 ;TFontContents Outline-Font 

Die folgende Tabelle zeigt, wie ein Font¬ 
Contents-File aufgebaut ist: 


FontContents-File 

Länge 

Bedeutung 

WORT 

WORT 

256 Byte 

WORT 

BYTE 

BYTE 

256 Byte 

Magic Cookie 

Anzahl der Schriftgrößen 

Name des 1. Fonts 

Höhe (Schriftgröße) 

Stil 

Flags (siehe Tabelle) 
times/13 Name des 2. Fonts 


Outline-Fonts: 

Professionelle DTP-Programme verwenden 
daher Schriften, die in einem Umrißformat 
(Outline-Format) vorliegen. Hier wird der 
Schnitt durch Anweisungen für Linien, Kreise 
und Kurven beschrieben, welche für jede 
Schriftgröße in das Raster des Ausgabegerätes 
umgesetzt werden. Die Rasterungs-Software 
kann in das Betriebssystem integriert sein, als 
separates Programm (z.B. Fontmanager) laufen 
oder erst im Drucker erfolgen. 

Schriften im Outline-Format haben den Vor¬ 
teil, daß sie auf beliebige Größen ohne Qua¬ 
litätsverlust skaliert werden können. Outline- 
Fonts verfügen nicht über separate Dateien für 
jede Schriftgröße. Statt dessen konvertiert ei¬ 
ne sog. Font-Engine über mathematische For¬ 
meln den zugrundeliegenden Zeichensatz in die 
gewünschte Größe. Der Zugriff auf einen Um¬ 
riß-Zeichensatz nimmt wohl Rechenzeit in An¬ 
spruch, dafür aber erscheinen die Buchstaben 
auf dem Bildschirm genau so wie später im 
Ausdruck, unabhängig vom Druckertyp. 

Wenn jedoch die ganze Erscheinung der Zei¬ 
chen wichtiger als ihr Umriß ist, sind Bitmap- 


Fonts gegenüber Outline-Fonts im Vorteil. Das 
gilt besonders für ColorFonts. die auch am 
Amiga verwendet werden können (zum Bei¬ 
spiel mit DPaint). 

Die Font-Engine »Intellifont« 

Das Intellifont-Format der Agfa-Compu- 
graphic Outline-Fonts wurde zunächst im MS- 
DOS-Bereich und von den Druckern der »HP 
LaserJet III«-Familie verwendet. Derzeit gibt 
es in diesem Format ungefähr 250 Fonts. Zum 
Amiga werden ab der Workbench 2.04 drei da¬ 
von mitgeliefert. 

Auf der WB 2.1 und WB 3.0 gibt es das 
Dienstprogramm Intellifont (auf der WB 2.04 
Fountin benannt), das die Installation dieser 
Umriß-Zeichensätze auf dem Amiga verwaltet. 
Diese befinden sich, wie die standardmäßigen 
Bitmap-Zeichensätze im Verzeichnis FONTS:, 
bzw. auf der mitgelieferten Font-Diskette. 

Zu jedem Outline-Font gibts nicht nur eine 
».font«-Datei sondern zusätzlich eine ».otag«- 
Datei (».otag« steht für Outline-Tags). Der da¬ 
zugehörige Outline-Font steht im Verzeichnis 
»_bullet_outlines« und hat das Suffix ».type. 


Tabelle 1: Aufgeschlüsselter Hex-Dump CGTimes.otag 


Offs. 

T AG_USER+OT_T ag 

Parameter 

Label 

Kommentar 

0000: 

80001001 

00000105 

OT_Fileldent 

Länge des Files 

0008: 

80009002 

000000BC 

OT_Engine 

zeigt auf Offset BC 

0010: 

80009003 

000000C3 

OT_Family 

zeigt auf Offset C3 

0018: 

8000A005 

oooooocc 

OT BName 

zeigt auf Offset CC 

0020: 

8000A006 

000000D8 

OTJName 

zeigt auf Offset D8 

0028: 

8000A007 

000000E6 

OT„BIName 

zeigt auf Offset E6 

0030: 

80001010 

00004C31 

OT^SymbolSet 


0038: 

80001011 

224E2732 

OT YSizeFacor 


0040: 

80002012 

00000A2A 

OT_SpaceWidth 


0048: 

80002013 

00000000 

OT IsFixed 


0050: 

80001014 

00000000 

OT_SerifFlag 


0058: 

80001015 

00000080 

OT_STemWeight 


0060: 

80001016 

00000000 

OT_SlantStyle 


0068: 

80001017 

00000090 

OT_HorizStyle 


0070: 

80009020 

000000B0 

OT_AvailSizes 

zeigt auf Offset B0 

0078: 

80001100 

00000005 

OT_SpecCount 

5 Specs 

0080: 

80001101 

00016954 

OT Specl 


0088: 

80009102 

000000F8 


zeigt auf Offset F8 

0090: 

80001103 

00000420 


0098: 

80001104 

0000067E 



00A0: 

80001105 

00000002 



00A8: 

00000000 

00000000 

TAG_DONE 


00 B0: 

0005 



5 verfügbare Größen 

00B2: 

000A 



10 

00B4: 

0014 



20 

00B6: 

001E 



30 

00B8: 

0028 



40 

00BA: 

0032 

1 _ 



50 

BC: 

62756C6C6574 00 



bullet. 

C3: 

43472054 696D6573 00 


CG Times. 

CC: 

43475469 6D657342 6F6C64 00 


CGTimesBold. 

D8: 

43475469 6D657349 74616C69 63 00 

CGTimesItalic. 

E6: 

4347 54696D65 73426F6C 64497461 6C6963 00 

CGTimesBoldltalic. 

F8: 

43475469 6D65732E 74797065 00 


CGTimes.type. 
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Funktionen der »bullet.library« 


FUNKTION _ 

ObtainlnfoA -- Einen mit TFont und/oder die Schnitt-Metrik (glyph metrics) abtragen 

Obtainlnfo -- VarArgs-Form von ObtainlnfoA 

SYNOPSIS 

error = ObtainInfoA(engineHandle,tagList) 

ULONG ObtainlnfoA(struct GlyphEngine *, struct Tagitem *); 
error = Obtainlnfo(engineHandle, firstTag, ...) 

ÜLONG Obtainlnfo(struct GlyphEngine *, Tag, ...); 

BEISPIEL 
ÜLONG pointSize; 
struct GlyphMap ‘glyph; 

if (!Obtainlnfo(EngineHandle, OT_Glyph, &glyph, TAGJXJNE)) { 

Releaselnfo(EngineHandle, OT_Glyph, glyph, TAG_DONE); 

} 

FUNKTION 

SetlnfoA -- Den zu verwendenden Zeichensatz und/oder die Schnitt-Metrik (glyph metrics) 
festlegen 

Setinfo - VarArgs-Form von SetlnfoA 
SYNOPSIS 

error = SetlnfoAfengineHandle, tagList) 

ULONG SetlnfoA(struct GlyphEngine *, struct Tagitem *); 
error = SetlnfofengineHandle, firstTag, ...) 

ÜLONG SetInfo(struct GlyphEngine *, Tag, ...); 

BEISPIEL 

if (!(error = SetlnfofEngineHandle, OT_PointHeight, fpoints, 

OT_GlyphCode, GC_daggerdbl, TAG_DONE)) { 
error = ObtainlnfofEngineHandle, OT_Glyph, iglyph); 

ReleaseInfo(EngineHandle, OT_Glyph, glyph); 

) 

FUNKTION 

ReleaselnfoA -- Die mit ObtainlnfoA erhaltenen Daten freigeben 
Releaselnfo -- VarArgs-Form von ReleaselnfoA 
SYNOPSIS 

error = ReleaseInfoA(engineHandle, tagList) 

ULONG ReleaselnfoAfstruct GlyphEngine *, struct Tagitem *); 
error = ReleaselnfofengineHandle, firstTag, ...) 

ÜLONG Releaselnfo(struct GlyphEngine *, Tag, ...); 

BEISPIEL 
ÜLONG pointSize; 
struct GlyphMap ‘glyph; 

error = Obtainlnfo(EngineHandle, OT_Glyph, tglyph, TAG^DONE); 
ReleaseInfo(EngineHandle, OT_Glyph, glyph, TAG_.DONE); 


FUNKTION 

OpenEngine -- Ein EngineHandle besorgen 
SYNOPSIS 

engineHandle = OpenEngine() 
struct GlyphEngine ‘OpenEngine(void) 

BEISPIEL 

BulletBase = OpenLibraryf"bullet.library", 0); 
if (!BulletBase) 

EndGame(ERROR_LibOpen, "bullet.library", 0); 
EngineHandle = OpenEngine(); 
if (!EngineHandle) 

EndGame(ERROR_InternalCall, "OpenEngine"); 


FUNKTION 

CloseEngine - Ein EngineHandle freigegen 
SYNOPSIS 

CloseEngine(engineHandle) 

void CloseEngine(struct GlyphEngine *); 

BEISPIEL 

EndGame(code, argl, arg2, arg3, arg3) 

{ 

CloseEngine(EngineHandle); 


Das Programm Intellifont erkennt zwei Out¬ 
line-Formate: Amiga-Compugraphic und stan¬ 
dardmäßige Compugraphic-Fonts, die FAIS- 
Dateien enthalten. Im letzteren Fall müssen die 
Dateien in das AmigaDOS-Format konvertiert 
werden, weil sie auf den Compugraphic-Disks 
im MS-DOS-Format enthalten sind. Erst nach 
der Konvertierung und Installation im Amiga 
stehen sie allen Anwenderprogrammen zur 
Verfügung. 

Bevor ein Outline-Font von Intellifont bear¬ 
beitet wird, überprüft es, ob es im FONTS-Ver¬ 
zeichnis die Unterverzeichnisse »_bullet« und 
»_bullet_outlines gibt und ob es zum ».font«- 
File ein korrespondierendes ».otag«-File gibt. 
Wenn nicht, wird das Programm abgebrochen. 

Die »bullet.library«: 

Ab Workbench 2.0 gibt es eine neue »disk- 
font.library«, mit der Bitmap-Fonts skaliert 
werden können und ab der WB 2.1 zusätzlich 
die »bullet.library«, die als Font-Engine für 
Outline-Fonts fungiert: 

- Rasterung eines Schriftbildes zu beliebigen 
vertikalen und horizontalen Auflösungen. 

- Rotation der Buchstaben um die Basislinie 
um einen beliebigen Winkel. 

- Schrägen (italicizing)) des Schriftbildes von 
-45 bis 45 Grad 

- Zugriff auf Kerning-Tabellen zum Unter¬ 
scheiden der Schnitte. 

- Skalieren der Schnitte auf eine beliebige 
Schriftgröße durch algorithmische Umfor¬ 
mung. 

Die »bullet.library« kennt fünf Funktionen, 
mit denen die beschriebenen Möglichkeiten 
realisiert werden können, wie in der Tabelle 
»Funktionen der »bullet.library« zu sehen. 

Die Übergabe der Parameter an die Funk¬ 
tionen der »bullet.library« erfolgt grundsätzlich 
mit Tags, welche die Metrik des Fonts be¬ 
stimmen. Daher ist die »,font«-Datei eines Out¬ 
line-Fonts nur 4 Byte lang und enthält lediglich 
den Font-Header, in der amerikanischen Lite¬ 
ratur auch Magic Cookie genannt. Mehr ist 
nicht erforderlich, weil alle anderen Parameter 
im dazugehörigen »,otag«-File definiert wer¬ 
den. Dieses beschreibt den Schnitt, und das 
Schriftbild mit OT_Tags, wie sie in <disk- 
font/diskfonttag.h> beschrieben sind (siehe 
entsprechende Tabelle). Das ».otag«-File muß 
sich im gleichen Verzeichnis wie das ».font«- 
File befinden. 

Die eigentliche Font-Datei mit der Endung 
».type«, wird nach einer Methode gespeichert, 
die Keyname-Coding benannt ist. Am Beginn 
stehen Blocks mit Informationen die durch ein 
UWORD gekennzeichnet werden. Die danach 
folgenden Daten sind MS-DOS-orientiert und 
daher im Intel-Format (Low/High-Byte) ge¬ 
speichert. Das ist genau umgekehrt wie das im 
Amiga verwendete Molorola-Format. Dazu 
ist zu bemerken, daß die Glyph-Daten nicht 
Kurven als Bogen oder Bezier-Kurven be¬ 
schreiben. sondern eher eine Sammlung von 
Kurven-Punkten sind. 

Die Anwendung der »bullet.library« erfor¬ 
dert gute Kenntnisse in C oder Assembler. 
Doch welche Fonts überhaupt zur Verfügung 
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grammierbar - Screenshot des Denio-Programms »Spiral.c« (auf PD-Diskette). 


stehen, kann man auch mit einem AmigaBA- 
SlC-Programm erfragen, denn hin und wieder 
leistet auch dieser Oldie unter den Program¬ 
miersprachen noch gute Dienste. 

»AvailFonts.bas« (Listing unten) gibt alle 
verfügbaren ROM- und Disk-Fonts entweder 
am Bildschirm oder auf einem Drucker aus. 
Angezeigl werden: 

- Der Name jedes Zeichensatzes und alle 
Schriftgrößen. 

- Ob es sich um einen Bitmap- oder Outline- 
Font handelt. 

- Der Schriftstil (siehe Tabelle 2). 

- Der numerische Wert der Flags und zusätz¬ 
lich dekodiert im Klartext (siehe Tabelle 3). 

Auch in ARexx 

Für den Fall, daß Sie AmigaBASIC nicht 
mehr besitzen, bieten wir Ihnen zusätzlich das 
ARexx-Script »FontCheck.rexx« (Listing 
rechts unten). Weil ARexx die AvailFonts- 
Funktion nicht kennt, muß man bei diesem Pro¬ 
gramm jeden Font einzeln auslesen. Als Er¬ 
gebnis werden alle Disk-Fonts am Bildschirm 
und in die Textdatei »ram: FontCheck.txt« aus¬ 
gegeben. Angezeigt werden: 

- Der Name des Zeichensatzes und alle 
Schriftgrößen. 

- Ob es sich um einen Bitmap- oder Outline- 
Font handelt. 

- Der Schriftstil - siehe Tabelle 2. 

- Bei den Bitmap-Fonts die Flags im Klartext 
(siehe Tabelle 3). 


Auf den PD-Disketten zu diesem Sonderheft 
finden Sie weitere Beispiele zur Programmie¬ 
rung der »bullet.library«, die uns von Com- 
modore zur Verfügung gestellt wurden (an die¬ 
ser Stelle vielen Dank für die Unterstützung). 


Sie finden auf der Diskette u.a. folgende Bei¬ 
spiele: 

fl »test.c«, Demo mit der »bullet.library«. 
Glyph-Metrik muß als Template (Schablone) 
beim Aufruf angegeben werden. 


REM AvailFonts.bas für AmigaBASIC 1.2 

PRINT #2,"(Fortsezung mit Mausklick)" 

warten: 


PRINT #2,"" 

CleanMouse=MOUSE(0) 

DECLARE FUNCTION AvailFontsS LIBRARY 

PRINT #2,"Fontname";TAB(24);"Typ"; 

WHILE MOUSE(0)= 0:WEND 

LIBRARY "diskfont.library" 

PRINT #2,TAB(32);"Stil";TAB(42)/"Flags" 

n=0 

DECLARE FUNCTION AllocMem&O LIBRARY 


RETURN 

LIBRARY "exec.library" 

7* Fonts zeigen */ 


DEFINT a-Z 

incmem = PEEKW(mem&+2) 

SUB Decode (flags,typ$) STATIC 


mem&=mem&+4 

typ$='"':wert=flags 

DIM SHARED Fontflags$(7),textAttri(1),style$(15) 

WHILE incmemoO 

FOR i=7 TO 0 STEP -1 


FontAdri = PEEKL(mem&) 

IF (wert-2 A i)=>0 THEN 

FOR i=7 TO 0 STEP-1 

hoehe = PEEKW(mem&+4) 

typ$=typ$+" "+Fontflag8$(i) 

READ Fontflags$(i) 

Stil = PEEK(mem&+6) 

wert=wert-2 A i:c=l 

NEXT i 

flags = PEEK(mem&+7) 

END IF 

FOR i=0 TO 15 

incmem = PEEKW(memS:+8) 

NEXT i 

READ style$(i) 

WHILE x$oCHR$(0) 

C=0 

NEXT i 

fontname$=fontname$+x$ 

END SUB 

INPUT " SJcreen oder D)rucker";sd$ 

x$=CHR$(PEEK(FontAdrS)) 


IF UCASE$(sd$) = ''S" THEN 

FontAdr4=FontAdri+l 

DATA REMOVED,DESIGNED,PROPORTIONAL,WIDEDOT 

device$="SCRN:":sd=0 

WEND 

DATA TALLDOT,REVPATH,DISKFONT, ROMFONT 

ELSE 

file$="Fonts:"+fontname$ 

DATA " PLAIN " 

device$="PRT:":sd=l 

OPEN file$ FOR INPUT AS #1 

DATA " UNDERLINE" 

END IF 

Cl$=INPUT$ (1, ttl) 

DATA " BOLD " 

CLS 

c2$=INPUT$(1,#1):c2=ASC(c2$) 

IF c2=3 THEN c$="0utline" ELSE c$="Bitmap ■ 

DATA " UNDERLINE,BOLD" 

7* Speicher fuer Puffer reservieren */ 

CLOSE #1 

DATA " ITALIC " 

bufsize&=1024 


DATA " UNDERLINE,ITALIC" 

buffer&=AllocMem&(bufsizeS;, 65537s,) 

7* Flags dekodieren */ 

DATA " BOLD,ITALIC" 

mem&=buffer& 

Decode flags,FontFlags$ 

DATA " UNDERLINE,BOLD,ITALIC" 

checksize&=AvailFonts&(mem&,bufsize&,7) 

7* Font-Daten zeigen */ 

DATA * EXTENDED" 

IF checksize&oO THEN 

PRINT #2,fontname$;hoehe;TAB(24);c$; 


PRINT #2, "Puffer um";checksize&; 

PRINT #2,style$(Stil);" ";FontFlags$ 

DATA " UNDERLINE,EXTENDED" 

PRINT #2, "Bytes zu klein!" 

IF n=20 AND sd=0 THEN GOSUB warten 

DATA " UNDERLINE,EXTENDED" 

FreeMemi buffer&,bufsize& 

mem&=mem&+10:n=n+l 

DATA " UNDERLINE,BOLD,EXTENDED" 

CLOSE 

fontname$="" : x$="" 

DATA * ITALIC,EXTENDED" 

END 

WEND 

DATA " UNDERLINE,ITALIC,EXTENDED" 

END IF 

CLOSE #2 

DATA " BOLD,ITALIC,EXTENDED" 

OPEN device$ FOR OUTPUT AS #2 

7* Aufraeumen */ 

FreeMems buffer&,bufsize& 

DATA " UNDERLINE,BOLD,ITALIC,EXTENDED" © 1993 M&T 

7* Ueberschrift 24 32 42 */ 

LIBRARY CLOSE 

»AvailFonts.bas« : Programm, um alle 

PRINT #2,PEEKW(mem&)Fonts 

END 

verfügbaren Zeichensätze zu ermitteln 
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Tabelle 2. Definition tf_Style-Byte j 

Wert 

Label 

Wirkung 

0 

1 

2 

4 

8 

64 

128 

FS,NORMAL 

FS,UNDERLINED 

FS,BOLD 

FS,ITALIC 

FS,EXTENDED 

FS,COLORFONT 

FS,TAGGED 

normal=kein Stilattribut gesetzt 

unterstrichen 

fett (tf_BoldSmear=l) 

kursiv 

erweitert (z.B."Topaz 9") 


Tabelle 3. Definition tf_Flags-Byte 


Wert 

Label 

Bedeutung 

1 

ROMFONT 

ROM-Zeichensatz 

2 

DISKFONT 

Disk-Zeichensatz 

4 

REVPATH 

von rechts nach links schreiben 

8 

TALLDOT 

Font für HiRes/Non-Interlaced 

16 

WIDEDOT 

Font für LoRes/Interlaced 

32 

PROPOTIONAL 

Zeichenbreite variiert 

64 

DESIGNED 

siehe Anmerkung 

128 

REMOVED 

Font nicht aktiv 


Anmerkung: Ist dieses Bit gesetzt, ist der Font entworfen (designed). Wenn nicht, kann der 
Font (ab »diskfont.library« Version 36 und höher) auch aus einem im ROM oder auf Diskette 
bereits existierenden Font skaliert worden sein. 


□ »strikefont.c«, zeigt den ganzen Zeichensatz 
eines OutlineFonts (Template für den Aufruf 
im Quellcode). 

□ »spiral.c«, zeigt weitere Möglichkeiten mit 
der »bullet.library«. Ergebnis siehe Screenshot 
»SpiraLpal.lbm«. Wahlweise auch Aufruf mit 
Templates. 

□ »spiral_pal«, das Original von Commodores 
Entwickler-Diskette enthält einen Bug im Win¬ 
dow-Titel und die Fensterhöhe ist mit 640x4(X) 
zu klein. Das Programm wurde daher von un¬ 
serem Autor Rudolf Wolf auf PAL-Höhe (640 
x480 ) gepatcht und der Fenster-Titel korrigiert. 

□ »spacing.c«, skaliert »CGTimes.font« ab 
Schriftgröße 5,6,7,8... Punkte. 

fl »sofdemo.c«; eine Demo, die zeigt, wie man 
mit skalierbaren Outline-Fonts umgeht. 

Il »prtface.c«, dieses »typeface print Utility« 
schließlich zeigt die Programmierung von 
Druckerausgaben. 

Wie erwähnt, finden Sie die Demos auf den 
PD-Disketten zum Heft (siehe Seite 114) ■ 


/* =======:===== FontCheck.rexx ============= */ 

if(-show('1','rexxsupport.library 1 )) 
then call addlibf'rexxsupport.library 1 ,0,-30,0) 
call FontTypO 

options prompt " Font-Verzeichnis? > ” 
pull dirname 

if dirname = then dirname = 'FONTS:' 

/* Font-Verzeichnis speichern */ 
fonts = showdir('FONTS:','FILES',' ') 
num = words(fonts) /* Anzahl der Fonts */ 

/* Font-Analysen in ein File speichern ‘/ 
say ' Fonts werden analysiert...' 
openlsende,'ram:Fontcheck.txt','w') 
do slot=l to num 
fontname = word(fonts,slot) 
if right(fontname,4)='font’ 
then pfad = 'FONTS:' || fontname 
say pfad 

/* Fontheader checken */ 
open(check,pfad,'r *) 

MagicCookie = c2x(readch(check,2)) 
select 

/* Bitmap-font */ 
when MagicCookie = '0F00' then do 
anzahl = c2d(readch(check,2)) 
hoch ="" 

do n=l to anzahl 
dummy = readch(check,257) 
y = c2d(readch(check,l)) 
hoch = hoch y 

Stil = c2d(readch(check,l)) 
flags = readch(check,1) 
klartext = " n 

do j=0 to 7 /* Flags dekodieren */ 
b = bittst(flags,j) 

if b=l then klartext = klartext typtxt.j 
end 
end 

writeln(sende,">" fontname ' FCH_ID = 0F00 -> Bitmap Font' hoch) 
writeln(sende," Stil: " stltxt.stil "Flags:" c2d(flags) klartext) 
writeln(sende,"") 
end 

when MagicCookie = '0F02' then do 
writeln(sende,">" fontname ' TFCHID = 0F02 -> TFontContents') 
writeln(sende,“") 
end 

/* Outline-Font */ 
when MagicCookie = '0F03 * then do 
otagname = left(pfad,length(pfad)-5) II ’.otag' 


open(tags,otagname,'r') 
do while -EOF(tags) 
x = c2x(readch(tags,8)) 
if x = '00000000' then leave 
end 

anzahl= c2d(readch(tags,2)) 
hoch ="" 


fontname '0FCH_ID = 0F03 -> Outline Font' hoch) 


do n=l to anzahl 
y = c2d(readch(tags,2)) 
hoch = hoch y 
end 

call close(tags) 
writeln(sende, ">' 
writeln(sende,"■) 
end 

otherwise NOP 
end 

call close(check) 
end 

call close(sende) 

/* Ergebnis am Bildschirm mit MORE ausgeben 
address COMMAND 
'echo "*ec"' 

'more ram:Fontcheck.txt' 

'echo "*ec"' 

options prompt ' Fontanalyse-File löschen? -j/n >' 
pull auswahl 
if auswahl ='J' then do 
'delete ram:Fontcheck.txt' 


*/ 


end 


exit 


FontTyp: 


typtxt.7 = 

"REMOVED" 

typtxt.6 = 

"DESIGNED" 

typtxt.5 = 

"PROPORTIONAL" 

typtxt.4 = 

"WIDEDOT" 

typtxt.3 = 

"TALLDOT" 

typtxt.2 = 

"REVPATH” 

typtxt.l = 

"DISKFONT" 

typtxt.O = 

"ROMFONT" 

stltxt.O = 

"PLAIN" 

stltxt.l = 

"ÜNDERLINE" 

stltxt.2 = 

"BOLD" 

stltxt.4 = 

"ITALIC" 

return 

© 1993 


»FontCheck.rexx«: Mit ARexx kann man natürlich auch 
mit Fonts jonglieren 
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AREXX 


ARexx-Tips 


Königliche Hilfe 


Schwerpunktthemen dieser Ausgabe von »Faszination Programmieren« sind 
der Amiga 1200, das neue Betrioebssystem und ARexx, die neue Program¬ 
miersprache für den Amiga. Im folgenden zeigen wir Ihnen, was man mit 
ARexx alles anfangen kann und wir starten gleich mit ein paar praktischen Tips. 


K lar, das Interesse an ARexx ist groß. 
Mittlerweile liefert Commodore die 
neue Sprache mit jedem Amiga aus. 
Das gute alte BASIC soll ersetzt werden. Hier 
nun ein paar Kniffe im Umgang mit ARexx. 

Falls sie selbst ein paar gute Tricks auf La¬ 
ger haben, schicken Sie uns doch einfach Ihre 
Vorschläge auf Diskette. Im nächsten »Faszi¬ 
nation Programmieren« wir ARexx sicher 
auch wieder eine große Rolle spielen. 

SUPER_Rename in 
ARexx 

Wollten Sie beispielsweise schon einmal al¬ 
le Dateien namens »Mon#?.s« in »Hyper- 
Mon#?.asm« in einem Verzeichnis umbenen¬ 
nen? Mit dem ARexx-Programm »Ren.rexx« 


ist es möglich. Die Benutzung ist im Programm 

als Kommentar enthalten. Wenn man in die 

»Shell-Startup« die Zeile 

alias ren rx ren.rexx [] 

einfügt, braucht man nur noch »ren alt neu« 

einzugeben. Das Programm ändert die Namen 

aller Dateien im aktuellen Verzeichnis 

Tliies We lipon 

ARexx-Kill per Work- 
bench 

ARexx läßt sich - wie bekannt - per Dop¬ 
pelklick auf das RexxMast-Icon in der System- 
Schublade stauen. Durch einen einfachen Trick 
kann man das Ganze - was weniger bekannt 
sein dürfte - auch wieder durch einen Dop¬ 
pelklick auf ein Icon deaktivieren. Speichern 


Sie hierzu die folgende Datei (ASCII) unter 
dem Namen »RexxKill«: 

DFO:Rexxc/RXC ; geben Sie statt DFO: 

l den Namen Ihrer 
; Workbench-Diskette ein 
avail flush >nil: ; diese Befehlsfolge 
l löscht nicht mehr 
; benötigte Librarys 
i aus dem Speicher 

Nun Starten Sie den Icon-Editor (zu finden 
auf der Extras-Diskette, die jedem Amiga bei¬ 
liegt). und laden das RexxMast-Icon. Auf 
Wunsch kann es verändert werden; übermalen 
Sie z.B. die Krone schwarz. Speichern Sie das 
Ergebnis als »Projekt«-Icon unter dem Namen 
»RexxKill.info« im selben Verzeichnis, in 
dem die »RexxKill«-Datei steht. Geben Sie als 
Default-Tool »C:IconX« an und das Icon ist 
einsatzbereit. Oberbuchner Christian 


/* rename command 

* von Thies Wellpott 

* Osage: rx ren [olddir/loldname [newdir/][newname] 

* oldname und newname können Jokerzeichen (#?, ?, etc.) beinhalten 

* Wenn newname KEINE Jokerzeichen enthält, wird das DOS-Rename benutzt. 

* Enthält newname aber Jokerzeichen so gilt folgendes: 

* ren [olddir/](oldprefix]#?[oldsuffix] [newdir/][newprefix]#?[newsuffix] 
*/ 

Signal on BREAK_C 
parse arg oldname newname . 
oldjoker = checkjoker(oldname) 
newjoker = check Joker (newname) 

if newjoker = 0 then /* newname enthält keine Jokerzeichen */ 

/* also DOS-Rename benutzen */ 
address command 'Rename "'oldname'” "'newname'"' 
exit 0 
end 

if (oldjoker -= 1 ) | (newjoker -= 1 ) then 
do 

say "Wrong number of pattern chars!" 
exit 20 
end 

olddir = "" 

pos = get_dirpos(oldname) 
if pos -= 0 then 
do 

olddir = left(oldname, pos) 
oldname = right(oldname, length(oldname)-pos) 
end 

newdir = "" 

pos = get_dirpos(newname) 
if pos -= 0 then 
do 

newdir = left(newname, pos) 
newname = right(newname, length(newname)-pos) 
end 

parse var oldname oldprefix "tt?" oldsuffix 
parse var newname newprefix "#?" newsuffix 
address command 'List >t:xyz_ren.tmp QUICK NOHEAD 
LF0RMAT="%S"' olddir II oldname 


if openlfhd, "t:xyz_ren.tmp” ,"R") = 0 then 
do 

say "Can't open my tmp-file!" 
exit 20 
end 

len_op = length(oldprefix) 
len_os = length(oldsuffix) 
fname = readln(fhd) 
do while -eof(fhd) 

pos = lastposfoldsuffix, fname) 

newname = newprefix || substr(fname, len_op+l, 

length(fname)-, len_op-len_os) II newsuffix 
say 'Renaming "'olddir II fname'" as "'newdir II newname'"' 
address command 'Rename "'olddir II fname'" "'newdir || newname'"' 
fname = readln(fhd) 
end 

call close(fhd) 

address command "Delete >NIL: t:xyz_ren.tmp" 
exit 0 
BREAK C: 

say "*** break" 
exit 5 

procedure check Joker: 
arg name 
pos = 0 
anz = 0 

do until pos = 0 

pos = index(name, "#?", pos+ 1 ) 
anz = anz + 1 
end 

return anz -1 
procedure get_dirpos: 
arg name 

pos = lastposCV", name) 
if pos = 0 then 

pos = index(name, ":") 

return pos © 1993 m&t 

»Ren.rex«: Ein ARexx-Script, um Dateien unizubennen, 
das aber auch ganze Verzeichnisse verarbeitet 
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Externe Bibliotheken 


ARexxxxxx wächst 


An Stelle von AmigaBASIC werden 
die neuen Amigas mit der Interpreter¬ 
sprache ARexx aus ge liefert. Was lei¬ 
stet diese Sprache? Was kann man mit 
ihr anfangen? Hier ein paar Beispie¬ 
le, die zeigen, daß ARexx Ihnen viel 
Arbeit mit dem Amiga abnimmt. 


von Ilse u. Rudolf Wolf 


H eute muß jedes Anwenderprogramm 
einen ARexx-Port besitzen. Hat es 
keinen, gilt es fast als veraltet. Die Pra¬ 
xis zeigt jedoch, daß höchstens zehn Prozent 
der Anwender davon Gebrauch machen... 

Und als eigenständige Programmiersprache 
wird ARexx kaum verwendet. Dabei ist der Be¬ 
fehlssatz mit externen Funktionsbibliotheken 
fast unbegrenzt erweiterbar. 

Die meisten Anwender und Programmierer 
wissen gar nicht, was alles in ARexx steckt, 
deshalb wollen wir uns in dieser Ausgabe mal 
richtig mit den Möglichkeiten beschäftigen: 

Fast unbegrenzter 
Befehlsumfang 

Mit externen Bibliotheken wird ARexx nicht 
nur als Batch-Sprache zur automatisierten 
Steuerung des Amiga oder Makro-Sprache zur 
Steuerung eines Anwenderprogramms son¬ 
dern auch als universelle Programmiersprache 
einsetzbar. Solche externe Funktionsbiblio¬ 
theken findet man auf PD-Disketten: 

□ Die universellste Bibliothek dürfte die 
AP1G (A Programmen Intuition & Graphics 
Library) von Fish-Disk 634 sein (s. »Faszina¬ 


tion Programmieren Nr. 1, Seite 57), denn mit 
ihr ist der Zugriff auf 288 Funktionen aus den 
Amiga-OS2-Bibliotheken (ASL, exec, Gad- 
Tools, graphics, intuition. layers und utility) 
möglich. Zusätzlich enthält die Bibliothek 
über 600 Konstanten und Flags, wie sie in 
den Include-Files definiert sind. Kein Wun¬ 
der. daß die »apig.library« 61220 Byte lang 
ist und das Manual rund 50 Seiten umfaßt. 

Mit der APIG ist ein flexibles und funktio¬ 
nelles Programmieren ähnlich wie in C mög¬ 
lich. denn in den meisten Fällen konvertiert die 
»apig.library« die ARexx-Stringparameter in 
ein Format, welches die Amiga-Bibliotheks- 
funktionen erwarten. Teilweise werden auch 
Funktionen zu Makros zusammengefaßt, die ei¬ 
nen kompakten Programmcode ermöglichen. 
Folgende Strukturen werden unterstützt: 

Menu. Menuitem. Subitem, Requesters, 
Boolean, String- und Proportional-Gadgets, 
Borders. IntuiText. 16-Bit-Arrays. Layers und 
IFF (via »iff.library« von Christian Weber). 

Allen Programmierern, die mit Intuition/Gra- 
phics-Funktionen und Strukturen nicht vertraut 
sind, empfiehlt der Programmierer Ronnie E. 
Kelly daher dringend das Studium der Ineludes 
& Autodocs. 

Eine der Stärken der APIG sind die inte¬ 
grierten Funktionen der »GadTools.library« 
und damit ist der Zugriffauch von ARexx aus 
möglich. Diese Bibliothek dient dazu, das Pro¬ 
grammieren von Gadgets, Menüs und Intuiti¬ 
on-Ereignissen zu vereinfachen. Mußten bisher 
viele Datenstrukturen vom Programmierer er¬ 
stellt werden, erfolgt das ab jetzt mit wenigen 
Zeilen. Dazu zeigen wir im Artikel »Gut ge¬ 
schaltet mit ARexx« das Beispiel »Gad- 
Tools.rexx« mit den Gadget-Typen: CYCLE. 
BOOLEAN. RADIO BUTTONS. LISTVIEW, 
STRING, TEXT und PROPGADGET. Alle 
diese Gadgets erscheinen in einer Bevelbox, 
die mit »DRAWBEVELBOX0« erzeugt wird. 


□ Die mathematischen Funktionen des 
ARexx kann man mit der »rexxmathlib.li- 
brary« von der Fish 227 ergänzen, die alle tri¬ 
gonometrischen Funktionen, sowie die e x -, 
x y - und die n!-Funktion liefert. Anscheinend 
ist diese aber nicht immer zu APIG kompati¬ 
bel, denn manchmal kommt es zu Abstürzen 
infolge von Adreßfehlern. 

□ Eine schon ältere Bibliothek ist die 
»rexjntui.library« von Jeff Glatt (Fish 463). 
Sie kennt zwar nur Funktionen des Amiga- 
OS 1.3, enthält dafür jedoch einige Funktio¬ 
nen. welche weniger Programmieraufwand 
erfordern als mit der »apig.library«. Die IFF- 
ILBM-Funktionen der »rxjtui.library« sind 
sogar um einiges leistungsfähiger, weil sie 
auf die »ILBM.library« zugreifen und daher 
alle Auflösungen des Amiga beherrschen 
(auch HAM!). 

Nachteilig ist allerdings, daß mit der »rxjn- 
tui.library« programmierte Custom-Screens 
(weil OS 1.3) und deren Windows im alten 2- 
D-Look erscheinen. Abhilfe schafft hier »Tag- 
Screens« (siehe auch folgende Seite. Tabelle 
»TagScreensl.6«), 

Bilder laden per 
ARexx-Script 

Die »rxjntui.library« enthält nur rund 40 
Funktionen. Trotzdem ist sie sehr leistungs¬ 
fähig. weil fast alle dieser Funktionen Makros 
sind. Dazu ein Beispiel mit dem der Darstel¬ 
lungsmodus auf JAM2, die Zeichenfarbe auf 2 
und die Hintergrundfarbe auf 0 eingestellt wird: 

Mit der »apig.library«: 
call setapen(windowrastport,2) 
call setbpen(windowrastport,0) 
call setdrmdfwinrastport, 1) 

Und mit der »rxjntui.library«: 
call SetDraw (window,2,0,1) 

Ein Vergleich der Befehlsnamen zeigt, daß 
die der APIG und der Rexxlntui nicht kolli¬ 
dieren. Trotzdem können Funktionen nicht pro¬ 
blemlos in einem ARexx-Script kombiniert 
werden. Eine der Ursachen ist. daß APIG-Zei- 
ger Zeichenketten sind, die von ARexx als 
Hex-Strings interpretiert werden, während die 
Rexxlntui für Zeiger numerische Werte liefert. 
Welche Bibliothek besser geeignet ist. hängt 
daher von der zu programmierenden Anwen¬ 
dung ab. 

ln einigen Fällen sind Kombinationen mög¬ 
lich. Das zeigt das ARexx-Script »IFF- 
ILBM.rexx« auf der übernächsten Seite. Dort 
wird ein ASL-Filerequester mit der APIG pro¬ 
grammiert, während der IFF-ILBM-Viewer mit 
der Rexxlntui erzeugt wird. Es kommt aber zu 



Quellennachweis für die Bibliotheken | 

Disk 

Name 

Funktion 

227 

RexxMathLib 

ARexx um trigonometrische Funktionen erweitern. 

348 

ColorReqester 

»color.library« (Doc-File auf Fish 257) -> kann 
von der »rxjntui.library« aus aufgerufen werden. 

463 

FilelO 

»requester.library« -> wird von den Requestern 
der »rxjntui.library« benötigt. 

463 

ILBM 

»ilbm.library« -> wird von den IFF-Funktionen 
der »rxjntui.library« benötigt. 

463 

Rexxlntuition 

Zugriff auf diverse OS1.3-lntuition-Funktionen ermöglichen. 

634 

APIG 

Ermöglicht den Zugriff auf Exec-, Graphics-, Intuition-, 
Layers-, Asl-,Utility- und Gadtools-Funktionen (OS2). 

Die »iff.library« wird mitgeliefert. 

705 

MFR/Goodies 

Tagscreens -> Patcht mit OS1.3 programmierte Screens. 
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keinen Kollisionen, weil die APIG nach dem 
Gebrauch des Filerequesters aus der Biblio¬ 
theksliste entfernt wird und erst danach die 
»Rexxlntui.library« aktiviert wird. 

Wie erwähnt greifen einige Funktionen die¬ 
ser Bibliotheken auf andere externe Libs zu. 
Um für alle Fälle gerüstet zu sein, sollten da¬ 
her die »iff.library«, »ilbm.library«, »color.li- 
brary« und »requester.library« zur Verfügung 
stehen. Die Tabelle auf der vorigen Seite zeigt 
eine Liste. Ein voller »Fish«-Korb, nicht wahr? 

Diesen Korb selbst füllen zu müssen, wollen 
wir Ihnen ersparen. Auf den Begleitdisketten 
(Public Domain) zu diesem Heft finden Sie da¬ 
her alle beschriebenen Bibliotheken. 

Bibliotheken sind 
Public 

Die Verzeichnisse APIG. Rexxlntuition und 
RexxMathLib enthalten (weil Kopien der Ori¬ 
ginale von den Fish-Disks 634.463 und 227) 
auch die Dokumentation und Programmbei¬ 
spiele der Autoren in gepackter Form. Die Ein¬ 
packer dazu gibt es im Verzeichnis C. Dort ist 
auch das erwähnte »TagScreens« gespeichert. 

(“I Der Vollständigkeit halber sei noch die 
»RexxArpLib« von W.G.J. Langeveld (Fish 
227) genannt. Mit ihr ist der Zugriff auf die 


noch immer unter OS 1.3 gerne verwendete 
»ARP-Library« möglich. 

Leider enthält die RexxArpLib einige Bugs, 
die nicht mehr beseitigt wurden, weil der 
Autor die Bibliothek nicht mehr weiterent¬ 
wickelt hat. 

Startvorbereitungen 

Bevor APIG-Funktionen aufgerufen werden, 
müssen die vom Programm benötigten exter¬ 
nen Funktionsbibliotheken (APIG. Rexxlntui. 
RexxSupport usw.) in die ARexx-internen Bi¬ 
bliothekenliste aufgenommen werden. 

Ronnie Kelly macht das in seinen APIG-Pro- 
grammbeispielen mit 
call addlibf'apig.library',0,-30,0) 
oder 

x = addlibCapig.library’, 0,-30,0) 
und setzt dabei stillschweigend voraus, daß die 
»rexxsupport.library« bereits geladen wurde. 
Ist das nicht der Fall, so brechen viele seiner 
Beispiele mit einer Fehlermeldung ab. weil sie 
Funktionen aus dieser Bibliothek enthalten. 

Wir empfehlen daher in den APIG-Beispie- 
len des Autors den ADDLIB-Aufruf durch die 
folgende Sequenz zu ersetzen: 
if(~8how(•1•,'rexxsupport.library')) 
then call addlib('rexxsupport.library', 

0,-30,0) 

if(-show('1','apig.library')) 
then call addlib('apig.library',0,-30,0) 


TagScreens 1.6 


Dieses Dienstprogramm patcht _LVOO- 
penScreen und _LVOOpenScreenTagList. 
Dadurch erscheinen auch alle unter OS1.3 
programmierten Screens im 3D-Look des 
OS2. TagScreens ist daher besonders für 
alle AmigaBasic-Anwender interessant, die 
diese Sprache am Amiga 500+ oder Amiga 
600 verwenden. 

Zu finden ist TagScreensl.6 (mit Source 
und Doc-File) auf der Fish 705 im Ver¬ 
zeichnis MFR/Goodies und auf den PD- 
Disketten zu dieser Ausgabe. 

Hinweis: Aufgerufen wird TagScreens 
aus der Shell (im Normalfall ohne Parame¬ 
ter). Ein nochmaliger Aufruf macht den 
Patch rückgängig. 

Achtung: Es wird Kickstart V37.175 oder 
höher benötigt! 

Hier wird abgefragt, ob die Bibliotheken in 
die Liste eingebunden sind. Wenn nein, werden 
sie in den Speicher geladen und in die Liste 
aufgenommen. 

Jeff Glatt setzt in allen seinen Beispielen 
voraus, daß die »rx_intui.library« bereits gela¬ 
den wurde und seine Scripts enthalten daher 
keinen Aufruf. Wenn Sie daher die Beispiele 


/* Externe Bibliotheken aktivieren */ 
i£(-show(' 1 ','rexxsupport.library')) 
then call addlib('rexxsupport.library',0,-30,0) 
if(-show(' 1 ','apig.library')) 
then call addlib('apig.library',0,-30,0) 
if(~show(' 1 ','rexxmathlib.library')) 
then addlib('rexxmathlib.library', 0, -30, 0) 

/* Intuition-Konstanten global aktivieren */ 
call SET APIG_GLOBALS() 
portname = "apigljport" 
p = openport(portname) 

/* <> OPENWINDOW(portname,left,top,wid,hgt,dpen,bpen,IDCMP, 
flags,title,scr,console,bitmap,chkmark,gadlist */ 

wx = 640,-wy = 256 
title = " Ellipsen" 
winidcmp = CLOSEWINDOW 

flags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+, 
WINDOWDEPTH+GIMMEZEROZERO+ACTIVATE 
wl = openwindow(portname, 0 , 0 ,wx,wy, 2 , 0 ,winidcmp,flags,title, 
null(),0, 0 , 0 , 0 ) 
rpwl = getwindowrastport(wl) 

/* Kreis mit DRAWELLIPSE(rp,cx,cy,a,b) */ 

call setapen(rpwl,3) 

call DRAWELLIPSE(rpwl,320,120,200,100) 

/* Ellipse mit DRAWCIRCLE(rp,cx,cy,r) V 
call setapen(rpwl, 2 ) 
call DRAWCIRCLEfrpwl,320, 120, 120) 
call setapen(rpwl, 1 ) 

/* Unterprogramm Elipse */ 

call setapen(rpwl, 1 ) 

call Ellipse(320,120,200,80,0,360,0,2) 

call setapen(rpwl, 2 ) 

call Ellipse(320,120,200,80,0,180,45,2) 

call setapen(rpwl,3) 

call Ellipse(320,120,200,80,180,360,45,2) 


call setapen(rpwl, 1 ) 

call Ellipse(320, 120,200,80,0,360,135,2) 
exitme = 0 
do while exitme = 0 

x = waitpkt(portname) 
do forever 

msg = getpkt(portname) 

if msg = '0000 0000 'x then leave 

msgclass = getarg(msg, 0 ) 

x = reply(msg, 0 ) 

select 

when msgclass = CLOSEWINDOW then exitme = 1 
otherwise nop 
end 
end 
end 

call CLOSEWINDOW(wl) 
exit 

Ellipse: 

arg xm,ym,a,b,aw,ew,rw,asp 
bm=3.141593/180;rw=rw*bm 
aw=aw*bm ;ew=ew*bm 
stp= 0.1 ;ew=ew+stp 
xw=COS(rw);yw=SIN(rw) 
ym=ym*asp 

x=a*C0S(aw);y=b*SIN(aw) 
xl=x*xw-y*yw+xm;yl=(x*yw+y*xw+ym)/asp 
xl=trunc(xl);yl=trunc(yl) 
do i=aw to ew by stp 
x=a*C 0 S(i);y=b*SIN(i) 
x 2 =x*xw-y*yw+xm;y 2 =(x*yw+y*xw+ym)/asp 
x 2 =trunc(x 2 );y 2 =trunc(y 2 ) 
call move(rpwl,xl,yl) 
call draw(rpwl,x 2 ,y 2 ) 
xl=x 2 ;yl=y 2 
end 

return © 1993 m&T 

»Ellipsen.rexx«: Wir erweitern APIG um eine Funktion 
zum Zeichnen von Ellipsen 
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des Autors ausprobieren wollen, müssen Sie 
den ADDLIB-Aufruf ergänzen: 

if(-show(•1■,’rx_intui.library')) 
then addlib('rx_intui.library',0,-30,0) 

Es gehört zu einem sauberen Programmier¬ 
stil. externe Bibliotheken am Programmende 
mit der REMLIB-Funktion wieder aus der Li¬ 
ste zu entfernen. Damit sind die Libraries zwar 
aus der ARexx-Liste entfernt, bleiben aber im 
RAM. Bei Speicherknappheit kann man be¬ 
legten Speicher mit dieser Zeile freigeben: 
address COMMAND 'avail >NIL: flush' 

In Ronnie Kelly's Beispielen gibt's noch ei¬ 
nen Bug: Er verwendet den AmigaDOS-Befehl 
WAIT. ARexx kennt ihn nicht und interpretiert 
z.B. »wait 5 secs« nicht als Befehl. In den Bei¬ 
spielen müssen daher WAIT-Zeilen durch ei¬ 
nen Zugriff auf AmigaDOS ergänzt werden: 
wait 5 secs 
durch 

address COMMAND 'wait 5 secs 1 
Wenn die »rexxsupport.library« geladen ist, 
geht es kürzer und schneller mit: 
call delay(250) 

Weil DELAY als Argument die Ticks/sek 
verlangt, muß für 5 Sekunden der Wert 250 
eingesetzt werden. 


Libraries für ARexx 
im Einsatz 

Wir haben für Sie einige Beispiele pro¬ 
grammiert. Damit Sie diese nicht abtippen 
müssen, sind sie im Verzeichnis »Scripts« der 
Begleitdiskette (s. Seite 114) enthalten. Alle 
Scripts sind mit Icons versehen und können 
auch von der Workbench aus gestartet werden. 
Um Ihnen langatmige Erklärungen zu ersparen, 
sind alle Listings reichlich kommentiert. 

Ellipsen.rexx (erstes Listing) 

Ergänzt die APIG um eine Ellipse-Funktion, 
die auch Rotation und das Zeichnen von Bögen 
mit wählbarem Anfangs- und Endwinkel er¬ 
möglicht. Die dazu erforderlichen Parameter 
stehen als Kommentar im Listing. 

IFFILBM.rexx (Listing 2) 

Dieses Beispiel zeigt, wie man die APIG und 
die Rexxlntui miteinander kombiniert und lie¬ 
fert einen IFF-ILBM-Viewer für alle Formate 
(auch HAM!). Er wird mit der »Rexxlntui« + 
»ILBM.library« erzeugt. Für die Bildauswahl 
dient der ASL-Filerequester (APIG). Die Far¬ 


ben des Bilds können mit einem Color-Reque- 
ster verändert werden (Aufruf mit rechter 
Maustaste) und unter einem neuen Namen wie¬ 
dergespeichert werden. Beendet wird das Pro¬ 
gramm mit der linken Maustaste. 

Diese Kombination wird verwendet, weil 
APIG zwar den ASL-Filerequester kennt, je¬ 
doch die »iff.library« von Christian Weber ver¬ 
wendet, die HAM nicht beherrscht. Rexxlntui 
dagegen nutzt die »ILBM.library«, die alle 
Standard-Bildformate verarbeitet. 

Menu_A.rexx und Menu_I.rexx (Disk) 

Zeigen jeweils eine Variante, wie man 
Menüs mit der APIG (Menu_A.rexx) und der 
Rexxlntui (Menu_I.rexx) programmiert. 

AsIFont.rexx (Listing 3, nächste Seite) 
Beweist, daß man auch in ARexx mit Hilfe 
der APIG den Zeichensatz wechseln kann. Das 
Script ist modular aufgebaut, so daß man es ei¬ 
genen Erfordernissen anpassen kann. ■ 

Literaturnachweis: 

Commodorc-Amiga.inc-.West Chester. Pennsylvania: 

Eric Giguere - AMIGA Programmers Guide to ARexx 
Commodorc: Handbuch /ur Systemsoftware 2.0 
Commodorc: Includes & Autodocs V39.I0X 


/* ============ IFFILBM.rexx ============ 

if partl = 0 then leave 

IFF-ILBM-Viewer mit der rx^intui.library 

/* Menü-Taste -> Color-Requester aufrufen */ 

für: Hi-Res, Lo-Res, Interlace, HAM. 

if partl = 2 then do 

Zusätzlich erforderlich sind: 

call Colorlscrn) 

ilbm.library, apig.library, color.library 

ans=MsgThree(winl,' Bild speichern? ',' OK oder NO',) 


end 

/* APIG einbinden */ 

end 

if(-8how('1','apig.library')) 

if ans=l then leave 

then call addlibf'apig.library', 0,-30,0) 

end 

/* Intuition-Konstanten setzen */ 

if ans=l then do 

call set_apig„globals() 

win2=GetWindow('Eingabe', scrn, 20,20,280,40,,,) 

/* Tagliste für ASL-Filerequester anlegen */ 

err = SetDraw(win2,2,,0) 

asltags = makeasltaglist () 

gadg2=AddGadg(win2,4,,10,12,250,12,1,1,2,40) 

/* ASL-Filerequester aufrufen */ 

err=SetDraw(win2,3, ,1) 

pic = ASLREQUESTffreq,asltags) 

spec=WaitMsg(win2) 

if pic = '0000 0000'x then do 

pfad = GInfo(win2,1) 

say "Requester CANCELED!" 

err=EndWindow(win2) 

end 

err=IFFsave(winl,pfad) 

call FREEASLREQUEST(freq) 

call workloopO 

call remlib('apig.library') 

end 

if pic = '0000 0000'x then exit 

return 

/* Bild laden (rx_intui) */ 

makeasltaglist: 

if(-show('1','rx_intui.library')) 

freq = ALLOCASLREQUEST(ASL FILEREQUEST,'0000 0000'x) 

then addlib('rx_intui.library',0,-30,0) 

asltags = makepointer(freq,0,200,MEMF CLEAR) 

winl=IffLoad(0,1+2,pic) 

hailstring = makepointer(freq,0,80,MEMF CLEAR) 

if winl = 0 then say 'Kein IFF-ILBM File!' 

call export(hailstring,"Select A File(s)... or CANCEL") 

/* IDCMP abfragen */ 

initpattern = makepointer(freq,0,80,MEMF_ CLEAR) 
call export(initpattern,(#?.info)") 

scrn=PEEK(winl,46,2) 

initdir = makepointer(freq,0,80,MEMF CLEAR) 

call ModlDCMP(winl,,, 65536) 

call export(initdir,"ram:") 

call workloopO 

call SETTAGSLOT(asltags,0,ASL..HAIL,'p',hailstring) 

/* Aufräumen */ 

call SETTAGSLOT(asltags,1,ASL_LEFTEDGE,'n',20) 
call SETTAGSLOT(asltags,2,ASL TOPEDGE,'n',20) 

call EndWindow(winl) 

call SETTAGSLOT(asltags,3,ASL_WIDTH,'n',380) 

call EndScreen(scrn) 

call SETTAGSLOT(asltags,4,ASL HEIGHT,'n',190) 

call remlib('rx_intui.library') 

call SETTAGSLOT(asltags,5,ASL PATTERN,'p',initpattern) 

address COMMAND 'avail >NIL: flush' 

call SETTAGSLOT(asltags,6,ASL DIR,'p',initdir) 

exit 

aslfuncflags = FILF NEWIDCMP + FILF PATGAD 

workloop: 

call SETTAGSLOT(asltags,7,ASLFUNCFLAGS,'n',aslfuncflags) 

ans=0 

call SETTAGSLOT(asltags,8,ASL WINDOW, 'p' ,'0000 0000'x) 

do forever 

call SETTAGSLOT(asltags,9,TAG_DONE,'n',0) 

msg=WaitMsg(winl) 

return asltags © 1993 M&T 

PARSE var msg dass partl part2 part3 
if dass = 3 then do 

»IFFILBM.rexx«: Ein Programm, um Bilder anzu- 

/* Mausklick beendet */ 

schauen - für alle Bildschirmmodi!! 
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/* ============= AslFont.rexx ============= */ 

call settagslot(scrtagl,0,SA Title,'p•,scrpname) 

/* Screen, Window, Fontrequester mit Tags */ 

call settagslot(scrtagl,1,SA Left,'n',0) 

/* Externe Bibliotheken einbinden */ 

call settagslot(scrtagl,2,SA_Top,■n',0) 
call settagslot(scrtagl,3,SA width,’n',640) 

if(-show('1','rexxsupport.1ibrary 1 )) 

call settagslot(scrtagl,4,SA Height,'n',256) 

then call addlibf'rexxsupport.library',0,-30,0) 

call settagslot(scrtagl,5,SA DISPLAYID,'n',HIRES) 

if(~show(•1•,'apig.library')) 

call settagslot(scrtagl,6,SA PENS,'p•,sapens) 

then call addlibf'apig.library',0,-30,0) 

call settagslot(scrtagl,7,SA Depth,'n',4) 

/* Intuition-Konstanten setzen */ 

call settagslot(scrtagl,8,SA_Type,'n'.CUSTOMSCREEN) 
call settagslot(scrtagl,9,TAG DONE,'n',0) 

call set_apig_global8() 

return scrtagl 

/* Messageport öffnen */ 

makewintaglist: 

portname = "rasgport" 

winidcmp = IDCMP CLOSEWINDOW 

p = openport(portname) 

winflags = WFLG CLOSEGADGET + WFLG DRAGBAR + 

WaitForPort portname 

WFLG _ SIZEGADGET, 

/* Screen-Tags definieren */ 

+ WFLG_DEPTHGADGET + WFLG_GIMMEZEROZERO 
wintitle = " Font Outputwindow" 

scrtagliBt = makescrtaglist() 

mytitle = allocvec(length(wintitle)+l,MEMF PUBLIC) 

/* Screen öffnen */ 

call export(mytitle,wintitle) 

scr = openscreentaglist(null(),scrtaglist) 

wintagl = allocatetagitems(20) 

/* Window-Tags definieren */ 

call settagslot(wintagl,0,WA_LEFT,’n',0) 
call settagslot(wintagl,1,WA TOP,'n',12) 

wintaglist = makewintaglist() 

call settagslot(wintagl,2,WA WIDTH,’n',640) 

/* Window öffnen */ 

call settagslot(wintagl,3,WA .HEIGHT,'n',220) 
call settagslot(wintagl,4,WA DETAILPEN,'n',1) 

win = openwindowtaglist(portname,null().wintaglist) 

call settagslot(wintagl,5,WA BLOCKPEN,'n',0) 

winrastport = getwindowrastport(win) 

call settagslot(wintagl,6,WA IDCMP,'n'.winidcmp) 

/* Zeiger auf den aktuellen Font */ 

call settagslot(wintagl,7,WA„FLAGS,'n'.winflags) 
call settagslot(wintagl,8,WA TITLE,•p'.mytitle) 

sysfont = getvalue(winrastport,52,4, 1 p') 

call settagslot(wintagl,9,WA CUSTOMSCREEN,■p',scr) 

/* Requester-Tags definieren */ 

call settagslot(wintagl,10,WA MINWIDTH,'n*,40) 
call settagslot(wintagl,11,WA MAXWIDTH,'n',640) 

call makeasltaglist() 

call settagslot(wintagl,12,WA MINHEIGHT,'n',80) 

/* Fontrequester aufrufen u. Auswahl im Fenster zeigen */ 

call settagslot(wintagl,13,WAMAXHEIGHT,'n',255) 
call settagslot(wintagl,14,WA SIZEGADGET,'n',1) 

do forever 

call settagslot(wintagl,15,WA DRAGBAR,'n',1) 

req = aslrequest(freq,asltags, freq) 

call settagslot(wintagl,16,WA CLOSEGADGET,'n',1) 

if req = null() then leave 

call settagslot(wintagl,17,WA ACTIVATE,'n',1) 

fontname = getvalue(freq,8,4, 's') 

call settagslot(wintagl,18,WA GIMMEZEROZERO,’n',1) 

size = getvalue(freq,12,2, 'n') 

call settagslot(wintagl,19,TAG DONE,•n',0) 

fg = getvalue(freq,16,l, ’n') 

return wintagl 

bg = getvalue(freq,17,1,'n') 

drmd = getvalue(freq,18,1,’n') 

makeasltaglist: 

/* Selektierten Font zeigen */ 

/* 8 bytes per slot */ 

freq = allocaslrequest(ASL FONTREQUEST,null()) 

call pitext(winrastport,10,60,fontname size,fg,bg,drmd,req) 

asltags = makepointer(freq,0,72,MEMF.^CLEAR) 

/* Ursprünglichen Font wieder setzen */ 

/* Begrüßungstext */ 

call setfont(winrastport,sysfont) 

hailstring = makepointer(freq,0,80,MEMF CLEAR) 

cal pitext(winrastport,10,190,"Bitte warten..",2,1, 

call export(hailstring, "Select A Font... or CANCEL") 

JAM2,sysfont) 

call settagslot(asltags,0,ASL_HAIL,'p'.hailstring) 

call delay(200) /* 4 Sekunden warten */ 

/* Bildschirm löschen */ 

/* Zeiger auf das Fenster */ 
call settagslot(asltags,1,ASL WINDOW,•p•,win) 

call clearscreen(winrastport,0,0) 

call settagslot(asltags,2,ASL LEFTEDGE,'n',100) 

end 

call settagslot(asltags,3,ASL TOPEDGE,'n',24) 

say 11 CANCEL angeklickt!" 

call settagslot(asltags,4,ASL FRONTPEN,'n',1) 

/* Aufräumen */ 

call settagslot(asltags,5,ASL_BACKPEN,'n',0) 

call closewindow(win) 

/* Schrifthöhe max. 48 Pkte erlaubt */ 

call closescreen(scr) 

call settagslot(asltags,6,ASL_ MAXHEIGHT,'n',48) 

call freeaslrequest(freq) 

call freetagitems(wintaglist) 

/* Funcflags definieren */ 

call freetagitems(scrtaglist) 

aslfuncflags = FONF FRONTCOLOR /* fg color palette */ 

call freevec(mytitle) 

/* 

aslfuncflags = aslfuncflags + FONF BACKCOLOR /* bg color 

Palette*/ 

call remlib('rexxsupport.library') 

aslfuncflags = aslfuncflags + FONF STYLES /* style buttons */ 

call remlib('apig.library') 

aslfuncflags = aslfuncflags + FONF DRAWMODE 

address COMMAND 'avail >NIL: flush' 

*/ 

/* drawmode gadget */ 

exit 

/*.V 

/* Wenn ASL_WIND0W definiert ist, dann muß 

auch FONFJJEWIDCMP gesetzt werden (sonst GURU!) */ 

makescrtaglist: 

aslfuncflags = aslfuncflags + FONFJJEWIDCMP 

call settagslot(asltags,7,ASL FUNCFLAGS,'n'.aslfuncflags) 

scrtagl = allocatetagitems(18) 

call settagslot(asltags,8,TAG DONE,'n',0) 

sapens = makepointer(scrtagl,0,24,MEMF PUBLIC) 

return asltags © 1993 M&T 

call setvaluetsapens,0,2 ,'n',-1) 

scrpname = makepointer(scrtagl,0,80,MEMF PUBLIC) 

»AslFont.rexx«: Fontwechsel mit ARexx programmiert; 

call export(scrpname," Screen mit 16 Farben") 

wie Sie sehen, mit ARexx geht alles... 
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ARexx und die »GadTools.library« 

geschaltet mit ARexx 


Gut 

Die GadTools-Ubrary (ab ÜS2.0) dient dazu, das Programmieren von Gadgets, 
Menüs und Intuition-Ereignissen z.u vereinfachen. Mußten hierfür bisher viele 
Datenstrukturen vom Programmierer erstellt w erden, kann das jetzt mit weni¬ 
gen Aufrufen der Funktionen der »GadTools.library« erfolgen. Die wichtigsten 
Funktionen dieser Bibliothek wurden von Ronnie Kelly in seine APIG-Ubratry 
übernommen und damit ist der Zugriffauch von ARexx aus möglich. 


von Ilse u. Rudolf Wolf 


U nser Beispiel »GadTools.rexx« (unten) 
zeigt, wie man in ARexx Gadgets pro¬ 
grammiert. Es verwendet folgende 
Gadget-Typen: Cycle. Boolean, Radio Buttons, 
Listview. String und Text. Alle Gadgets er¬ 
scheinen in einer Bevelbox. die mit »DRAW- 
BEVELBOXO« erzeugt wird. 

Als Draufgabe enthält das Beispiel noch ein 
Proportional-Gadget in dem der Schieber ho¬ 
rizontal und vertikal verschoben werden kann. 

Die GadTools-Funktionen brauchen einen 
Speicher, in dem Daten aufbereitet werden 
können. Das geschieht mit der APIG-Funktion 
»CREATECONTEXTO«. Ferner werden auch 
einige Zeiger benötigt (siehe Listing). 


Alle Gadgets eines Windows sind miteinan¬ 
der verkettet. Der Aufbau einer solchen Gad- 
get-Kette ist aus dem reichlich kommentierten 
ARexx-Script ersichtlich. 

Den Beginn der Kette bildet eine Gadget- 
Struktur. die mit der Funktion »MAKENEW- 
GADGETO« initialisiert wird. Erst der Aufruf 
von »CREATEGADGETO« besorgt ein Gad- 
get des angegebenen Typs und hängt es an ein 
bestehendes Gadget an. 

Bevor allerdings mit »CREATEGAD¬ 
GETO« weitere Gadgets erzeugt und einge¬ 
bunden werden können, muß die vorher mit 
»MAKENEWGADGETO« initialisierte Gad- 
get-Struktur mit »SETNEWGADGETO« mo¬ 
difiziert werden. 

Ronnie E. Kelly, der Programmierer der 
APIG-Library, verweist in seiner Dokumenta¬ 


tion ständig auf das RKM (Rom Kernel Refe¬ 
rence Manual). Damit ist der Anwender ge¬ 
zwungen, sich dort Detailinformationen über 
Flags und Tagitems zu holen. 

Letzteres wollen wir Ihnen ersparen und lie¬ 
fern in der Tabelle auf der nächsten Seite er¬ 
gänzende Informationen zu allen wichtigen 
Funktionen, die es Ihnen ermöglichen, das 
Script nach eigenen Wünschen zu modifizieren 
bzw. einzelne Gadgets in eigenen ARexx- 
Scripts zu verwenden. Damit es nicht zu unü¬ 
bersichtlich wird, werden Funktionen, deren 
Parameter aus dem Listing ersichtlich sind, hier 
nicht erwähnt. 

Damit Sie 250 Zeilen »GadTools.rexx« 
nicht abtippen müssen, ist das Programm auf 
der Begleitdiskette gespeichert. Das Script ist 
mit einem Icon versehen und kann daher auch 
von der Workbench aus gestartet werden. 

Ferner finden Sie auf der Begleitdiskette im 
Verzeichnis LIBS alle Bibliotheken. Die Ver¬ 
zeichnisse APIG, Rexxlntuition und Rexx- 
MathLib enthalten (weil Kopien der Originale 
von den Fish-Disks 634,463 und 227) auch die 
Dokumentation und Programmbeispiele der 
Autoren in gepackter Form. Die Entpacker da¬ 
zu gibt es im Verzeichnis C. ■ 


/* ========= GadTool.rexx ======== */ 

/* Alle GadTools-Gadgetes neu zeichnen */ 

I* Beispiele mit GadTool-Funktionen */ 

call GT REFRESHWINDOW(wl,null()) 

/* Externe Bibliotheken aktivieren */ 

/* PropGadget einbinden */ 

if(-show ('1',' rexxsupport.library 1 )) 

z = addglist(wl,gprop,-l,-l,0) 

then call addlib('rexxsupport.library',0,-30,0) 

z = refreshgadgets(gprop,wl,0) 

i£(-show( T, 'apig.library')) 


then call addlib('apig.library',0,-30,01 

/* Überschrift MX Gadget */ 

/* Intuition-Konstanten global aktivieren */ 

z = pitext(rpwl,230,10," MX KIND",1,0,JAM2,0) 

call SET APIG_GLOBALS() 

z = pitext(rpwl,230,20,"(RADIO BUTTONS)",1,0,JAM2,0) 

/* ExecList für LISTVIEW-Gadget anlegen */ 

/* Überschrift BOOLEAN Gadget */ 

gadexeclist = makelistO 

z = pitext(rpwl,32,56,"BOOLEAN_KIND",1,0,JAM2,0) 

/* Labels für CYCLE- u. MX- Gadgets erzeugen */ 

/* Auf CLOSE-Gadget oder CANCEL warten */ 

cyLabels = makeCYlblsO 

exitme = 0; apen=l 

mxLabels = makeMXlblsf) 

do while exitme = 0 

/* Gadgets definieren */ 

x = waitpkt(portname) 

z = DefineGadsf) 

do forever 

/* Fenster öffnen */ 

msg = g^tpktfportname) 

if msg = '0000 0000'x then leave 

portname = "apiggadport" 

msgclass = getarglmsg,0) 

p = openport(portname) 

msgeode = getarg(msg,1) 

WaitForPort portname 

msgid = getarglmsg,9) 
msgY = getarglmsg,4) 

wintitle = ’ GadTools - Beispiele / KLICK ME !" 

x = reply(msg,0) 

Winidcmp = CLOSEWINDOW+GADGETUP+GADGETDOWN+MOUSEMOVE 

if msgclass = CLOSEWINDOW I msgid=14 then do 

winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+GIMMEZEROZERO, 

if msgid=14 

+ACTIVATE 

then gtxt=" CANCEL" 

wl = OPENWINDOW(portname,0,0,640,256,0,1,winidcmp,winflags,wintitle, 

eise gtxt=“ Das CLOSE-Gadget" 

,scr, 0, null () «null ( ) , conxgad) 

say gtxt "wurde angeklickt!" 

rpwl = GETWINDOWRASTPORT ( wl ) 

exitme=l 

end 

/* BevelBox als Umrandung aller Gadgets zeichnen */ 
call DRAWBEVELBOX(rpwl,10,4,570,180,scrvinfo,TAG DONE,0) 

/* BevelBox als Umrandung des PropGadgets zeichnen */ 

»GadTools.rexx«: Lin ARexx-Programm, mit dem Sie Gad- 

call DRAWBEVELBOX(rpwl,134,200,312,38,servinfo,TAG_D0NE,0) 

get ausprobieren können (Anfang) 
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/* Status des angeklickten Gadgets ausgeben */ 

/* TEXT Gadget zur Anzeige der Rückagbewerte */ 

a = auswertungl) 

xt=" TEXT_KIND -> Status des angeklickten Gadgets" 

end 

call SETNEWGADGET(newgadx,scrvinfo,scrfont,30,166,520,12, 

.PLACETEXT ABOVE,myid+40,null()) 

/* Aufräumen */ 

previousgadget = CREATEGADGET(TEXT KIND,previousgadget,newgadx, 

call CLOSEWINDOW(wl) 

,GTTX_TEXT,xt, 

,GTTX BOEDER, 1, 

call FREEGADGETS(conxgad) 
call FREETHIS(newgadx) 

,TAGJX)NE,0) 

call FREEVEC(glistpointer) 

/* — Proportional-Gadget mit Funktionen der Intuition-Library — */ 

call FREETHIS(cyLabels) 

/* PROP GADGET mit AutoKnob in Bevelbox */ 

call PREETHIS(mxLabels) 

maxnumX=200 

call FREE_EXEC_LIST(gadexeclist,,1) 

maxnumY=10 

gprop = makepropgadget(newgadx,140,204,300,30,GADGHN0NE, 

call FREEVISUALINFO(scrvinfo) 

GADGIMMEDIATE+RELVERIFY, 

call UNLOCKPUBSCREEN(nul1(),scr) 

+FOLLOWMOUSE,-1,FREEVERT+FREEHORIZ+AUTOKNOB+16,,, myid+30,0,0) 

call remlibl'apig.library') 

txtl="PropGadget x -> 0-200 y -> 0-10" 

call remlib( 1 rexxsupport.1ibrary') 

call makeitext(wl,txtl,AUTOLEFTEDGE,-14,1,0,JAM2,O.gprop) 

address COMMAND 'avail >NIL: flush' 

return 1 

exit 

/* Texte für das Cycle Gadget */ 
makeCYlbls: 

DefineGads: 

ltxt.l="Farbe 1 (SCHWARZ)" 

/* Von den GadTools-Funktionen benötigte Zeiger initialisieren */ 

ltxt.2="Farbe 2 (WEISS)" 

scr = LOCKPUBSCREEN("Workbench") /* Window am WB-Screen */ 

scrvinfo = GETVISUALINFO(scr) /* für MAKENEWGADGET() */ 

ltxt.3="Farbe 3 (HELLBLAU)" 

scrfont = GETVALUE(scr,40,4,'p') /* Zeiger auf TextAttr */ 

/* Array 4 Pointers 4Bytes * 4 = 16 */ 

glistpointer = ALL0CVEC(4,MEMF.CLEAR) 

conxgad = CREATECONTEXT(glistpointer) /* Zeiger auf Context */ 

cylbl = MAKEPOINTER(0,0,16.MEMF CLEAR) 

previousgadget = conxgad 

/* Nur bis 3, weil das Letzte Null sein muß (Listenabschluß) */ 

myid = 10 /* GadgetID */ 

do x = 1 to 3 

lbuf = MAKEPOINTER(cylbl,0,length(1txt.x)+2,MEMF CLEAR) 

/* CYCLE-Gadget - GadgetID=10 (Beginn der Kette) */ 

call export(lbuf.ltxt.x) 

newgadx = MAKENEWGADGET(scrvinfo,scrfont,30,32,190,16,"CYCLE KIND", 

call SETVALUEfcylbl,(x-1)*4,4,'p'.lbuf) 

,PLACETEXT ABOVE,myid,null()) 

end 

previousgadget = CREATEGADGET(CYCLE.KIND,previousgadget,newgadx, 

,GTCY_LABELS, cyLabels, 

return cylbl 

,TAG_DONE,0) 

/* MUTUAL EXCLUDE Gadget (Radio Butttons) - GadgetID =11 */ 

/* Texte für die Radio Buttons */ 
makeMXlbls: 

call SETNEWGADGETfnewgadx,scrvinfo,scrfont, 240, 32,145,42,"", 

/* Array 6 Pointers 4Bytes * 4 = 24 */ 

,PLACETEXT.RIGHT,myid+1,null()) 
previousgadget = CREATEGADGET(MX KIND,previousgadget,newgadx, 

maLbls = MAKEPOINTER(0,0,44,MEMF.CLEAR) 

, GTMX .LABELS, mxLabel 8, 

/* Nur 5, weil das Letzte Null sein muß (Listenabschluß) */ 

,TAG_DONE, 0) 

do x = 1 to 5 

ltxt = "Schalter" x 

/* LISTVIEW-Gadget GadgetID=12 */ 

lbuf = MAKEPOINTER(maLbls,0,lengthltxt)+2,MEMF CLEAR) 

call SETNEWGADGET(newgadx,scrvinfo,scrfont,370,22,185,120,"LISTVIEW KIND", 

call export(lbuf,ltxt) 

,PLACETEXT ABOVE,myid+2, nul1()) 

call SETVALUE(maLbls, (x-1)*4,4, ’pMbuf) 

previousgadget = CREATEGADGET(LISTVIEW KIND,previousgadget,newgadx, 

end 

,GTLV_LABELS,gadexec1ist, 

.LAYOUTA SPACING,1, 

return maLbls 

,TAG_DONE,0) 

/* STRING-Gadget GadgetID=13 */ 

/* Texte für Listview Gadget */ 
makelist: 

call SETNEWGADGET(newgadx,scrvinfo,scrfont, 30,94,290, 12,"STRING KIND", 

/* List Struktur (immer ALLOCMEM benützen!) */ 

.PLACETEXT ABOVE,myid+3,null()) 

listnode = ALLOCMEM(18,MEMF CLEAR) 

previousgadget = CREATEGADGET(STRING.KIND,previousgadget,newgadx, 

call NEWLIST(listnode) 

,GTST_MAXCHARS,50,TAG_DONE,0) 

do x = 1 to 20 

txt = "Das ist Zeile " x 

/* BOOLEAN-Gadget GadgetID=14 */ 

ptr to node added = ADD LIST NODE(listnode,txt) 

call SETNEWGADGET(newgadx,scrvinfo,scrfont,30,68,70,12,"CANCEL", 

end 

,PLACETEXT IN,myid+4,null()) 
previousgadget = CREATEGADGET(BUTTON KIND, 

return listnode 

previousgadget,newgadx,TAG_DONE,0) 

auswertung: 

txt="" 

item = msgcode +1 

/* SLIDER-Gadget GadgetID=0 */ 

8 text="SILDER_KIND 0 - 100" 

call SETNEWGADGET(newgadx,scrvinfo,scrfont, 30, 120,290, 12,stext, 

select 

,PLACETEXT_ABOVE,myid+10,null()) 

when msgid = 0 & msgY <210 then do 

previousgadget = CREATEGADGET(SLIDER KIND,previousgadget,newgadx, 

if msgY <130 

,GTSL_MAX,100,TAG_DONE,0) 

then txt = "Position Slider Gadget ->" msgcode 
eise txt ="Position Scroller Gadget ->" msgcode 

/* SCROLLER-Gadget GadgetID=0 */ 

8Ctxt="SCR0LLER KIND 0 - 20" 

end 

call SETNEWGADGET(newgadx,scrvinfo,scrfont,30,150,520,12,sctxt, 

when msgid=40 I msgid=0 then do 

,P LACETEXT.ABOVE,myid+2 0,nul1()) 

x=maxnumX * trunclhorizpot(gprop)*100 /65535)/100 

previousgadget = CREATEGADGET(SCROLLER„KIND,previousgadget,newgadx, 

y=maxnumY * truncfvertpot(gprop)*100 /655351/100 

,GTSC.ARROWS,16, 

txt="PropGadget: X=" x ”Y=" y 

,GTSC_TOP,10, 

end 

,GTSC TOTAL,21, 

»GadTools.rexx«: Ein ARexx-Programm, mit dem Sie Gad- 

,TAG_DONE,0) 

get ausprobieren können (Fortsetzung) 
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when msgid = 10 then do 
apen= msgcode +1 

cyTxt = GETVALÜE(cyLabels,msgcode*4,4,'s') 

txt="Cycle Gadget ->” cyTxt 

end 

when msgid = 11 then do 
rbTxt = GETVALOE(mxLabel8,msgcode*4,4,'s') 
txt="Radio Buttons ->" rbTxt 
end 

when msgid = 12 then do 
nodeptr=gadexeclist 

do for item 

nodeptr = getvalue(nodeptr,0,4,'p') 
end 

nodename = getvalue(nodeptr, 10 ,4,'s') 
txt = "Listview Gadget ->" nodename 

end 

when msgid = 13 then do 
item= GETSTRGAD(wl,13,0) 
txt = "String Gadget ->" item 
end 

otherwise NOP 
end 

call pitext(rpwl,38,168,Copies(" ”,62),1,0,JAM2,0) 
call pitext(rpwl,38,168,txt,apen,0,JAM2,0) 

return 1 © 1993 K&T 

»GadTools.rexx«: Ein ARexx-Programm, mit dem Sie 
Gadget ausprobieren können (Ende). Alle Skripts und 
erforderlichen Libraries linden Sie auch auf den PD-Dis- 
ketten zum Heft (siehe Seite 114). 


Tags für CREATEGADGETQ | 

Aufruf und Parameter 

Funktion 

CYCLE_KIND 

GTCY Active 

GTCY_Labels 

; Nummer des aktiven Labels (default=0) 

; Mit Null abgeschlossenes Label-Feld 

LISTVIEW_KIND 

GTLV_Labels 

GTLV ScrollWidth 

GTLV Top 
LAYOUTA_SPACING 

; Zeiger auf die Liste der Texte 
; Breite des Scroll-Balkens (default=16) 

; Nummer des ersten sichtbaren Eintrags 
; Bestimmt den Zeilenabstand 

MX_KIND 

GTMX_Active 

GTMX_Labels 

GTMX_Spacing 

; Aktive Nummer im MX-Gadget (default=0) 

; Mit Null abgeschlossenes Label-Feld 
; statt LAYOUTA_SPACING bei MX_KIND 

SCROLLER_KIND 

GTSC Arrows 

GTSC_Top 

GTSC_Total 

GTSC_Visible 

; Pfeilgröße 

; Anfangsposition (default=0) 

; Anzahl der Einheiten (default=0) 

; Auf einmal sichtbare Einheiten 

SLIDER_KIND 

GTSL Level 

GTSL Max 

GTSL_Min 

; Anfangsposition (default=0) 

; Maximalwert des Sliders 
; Minimalwert des Sliders 

STRING_KIND 

GTST_MaxChars 

GTST_String 

_ 

; Maximal zulässige Zeichen 
; Inhalt (default= leer) 

TEXT_KIND 

GTTX_BackPen 

GTTX__Border 

GTTX FrontPen 

GTTX_Text 

; Hintergrundfarbe 
; 1 = Rahmen zeichnen 
; Textfarbe 

; Inhalt (default = leer) 


Wichtigste Funktionen der »GadTools.library« I 

Aufruf und Parameter 

Funktion 

MAKENEWGADGET(vinfo,font,left,top,width.height,text,flags.id,usrdata) 

Erzeugt eine NewGadget-Struktur für GadTool-Gadgets. Die Freigabe muß mit der 
FREETHISQ-Funktion erfolgen. 

Rückgabewert: Zeiger auf die Struktur 

SETNEWGADGETlnewgad.vinfo.font.lefl.top.width.height.text.flags.id.usrdata) 

Modifiziert die Werte in einer vorher initialisierten NewGadget-Struktur. 

Rückgabewert: 1 wenn erfolgreich, sonst 0 

Erklärung der Parameter für MAKENEWGADGET und SETNEWGADGET: 
flags - Flags für Text-Position 

(PLACETEXT_LEFT/PLACETEXT_RIGHT/PLACETEXTJN/PLACETEXT_ABOVE) 
font - Zeiger auf den Zeichensatz, font = GETVALUE(screen,40,4,'p') 

height - Höhe des Gadgets 

id - GadgetID 

left - x-Koordinate der linken oberen Ecke 

newgad - Zeiger auf die mit MAKENEWGADGET() initialisierte NewGadget-Struktur 
text - string, Text für das Gadget-Label 

top - y-Koordinate der linken oberen Ecke 

usrdata - Zeiger (z.B. auf ein Image) 

vinfo - Der von der GETVISUALINFOO-Funktion gelieferte Zeiger 
width - Breite des Gadgets 

CREATEGADGET(kind.previous,newgad,tag1,tag1data,...) 

Der eigentliche Befehl, das Gadget zu zeigen 
kind - Gadget-Typ 

newgad - Zeiger auf die mit MAKENEWGADGET() initialisierte NewGadget-Struktur 

1 Gadget-Typen (Tags siehe Tabelle oben rechts): 


BOOLEAN_KIND 

Liefert ein Boolean-Gadget. das lediglich durch Anklicken aktiviert wird. Es kann 
zwei Zustände annehmen, aktiv oder inaktiv. 

LISTVIEW_KIND 

Liefert ein Listen-Gadget mit einem Scroll-Balken, das Einträge in einer Liste verwaltet 
und die durch Anklicken der Zeile ausgewählt werden. 

MX_KIND 

Liefert sog. Radio-Buttons, das sind kleine quadratische Schalter, die im 
aktiviertem Zustand ausgefüllt sind. Sie können mit anderen Radio-Buttons so 
verknüpft werden, daß ein Button abhängig vom Zustand anderer Buttons aktiviert 
oder deaktiviert wird. Die Art der Verknüpfung nennt man »mutually exclusive« 

CYCLE_KIND 

Liefert ein Cycle-Gadget mit dem eine Liste verschiedener Optionen durchgeklickt 
werden kann. Beispiele dafür finden sich auf der Workbench 2.xx und 3.0. 

SCROLLER_KIND 

Erzeugt einen Scroll-Balken. 

SLIDER KIND 

Erzeugt einen Schieberegler. 

STRING_KIND 

Diesen Typ gab es bereits in älteren Betriebssystem-Versionen, doch jetzt erscheint 
er am Bildschirm im neuen 3-D-Look. 

TEXT_KIND 

Liefert ein Gadget, das nur Text enthält und sonst keine weiteren Funktionen erfüllt. 
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ARexx-Port zum Nulltarif 


Endlich kommt; 


Text-Editoren für den Amiga gibt es (besonders im PD-Bereich) wie Sand am 
Meer. Einer befindet sich auch auf Ihtvr Workbench-Diskette. Doch wußten Sie, 
daß der Editor freidefinierbare Pull-Down-Menüs und einen leistungsfähigen 
ARexx-Port besitzt? Wir verraten Ihnen, wie Sie ihn bedienen und um zusätz¬ 
liche Funktionen erweitern - z.u einem idealen Werkzeug für Programmierer. 


von Heinzjörg Rabe 


U nser hier vorgestellter »Ed 2.00«, im 
folgenden kurz »ED« genannt, befindet 
sich unter dem Namen »Ed« im Direc¬ 
tory »C« Ihrer Workbench-Diskette. Die aktu¬ 
elle Version ist »Ed 2.00, V37.11,13.5.91«, die 
ab Workbench-Version 2.04 (37.67) ausgelie¬ 
fert wird, und nur unter OS 2.0 und höher läuft. 

ED ist ein bildschirmorientierter ASCI1- 
Text-Editor. Zur Anzeige verwendet ED ein 
Console-Window (»RAW:«) auf dem Work- 
bench-Screen. Vorgängerversionen von ED be¬ 
finden sich seit den Anfängen des Amiga im 
Lieferumfang (auf der Workbench-Diskette), 
erfreuten sich aber keiner großen Beliebtheit. 

Fundamentale Änderungen am AmigaDOS, 
die beim Sprung von Kickstart 1.3 nach OS 2.0 
erfolgt sind, machten eine Überarbeitung von 
»ED« erforderlich. Dabei wurden - glückli¬ 
cherweise - gleich noch einige Verbesserungen 
vorgenommen. Hier die wesentlichsten Ver¬ 
besserungen gegenüber der Version 1.14: 
-voll OS 2.0 kompatibel (kein BCPL mehr!); 
-von der Workbench aus startbar, 
-zusätzliche Aufrufparameter b/.w. Tool- 
Types erlauben u.a. Definition von Win¬ 
dowgröße. Tabulatoren, Margins; 

- Dateiauswahl über File-Requester der ASL- 
Library; 

-Cursorpositionierung mit der Maus; 

- freidefinierbare Roll-Down-Menüs; 
-Unterstützung von Macro-Files; 

- freidefinierbare Funktionstasten; 

- ARexx-Fernbedienung aller Funktionen. 
-Start von ARexx-Scripts über File-Requester. 

Der Start 

Da ED die File-Auswahl über den File-Re¬ 
quester der »asl.library« ermöglicht, muß sich 
die Datei »asl.library« im Directory »L1BS:« 
befinden. ED kann von CLI/Shell. als auch von 
der Workbench gestartet werden. Allerdings 
befindet sich im Lieferumfang kein Icon; das 
entsprechende File »Ed.info« fehlt. 

Wenn Sie ED von der Workbench (Dop¬ 
pelklick) starten möchten, brauchen Sie ein 
Icon vom Typ »Tool« erzeugen. Natürlich kön¬ 
nen Sie für Ihre Text-Icons vom Typ »Project« 
wählen. Tragen Sie dort »c:Ed« als »Default 
Tool« ein. Beim Doppelklick auf so ein Pro- 
ject-Icon lädt ED nach dem Start den Text. 


Seit OS 2.0 durchsucht die Workbench. um 
das zu einem Icon gehörende Programmfile zu 
finden, übrigens auch den Suchpfad (PATH- 
Befehl und mit ASSIGN zugewiesenes Direc¬ 
tory »C:«). Es genügt also, wenn Sie das selbst¬ 
gebastelte Tool-Icon »Ed.info« z.B. ins Utili- 
ties-Directory Ihrer Boot-Diskette kopieren 
und das eigentliche Programm »Ed« im »C:«- 
Directory belassen. Für den Start vom 
CLI/Shell lautet das Template (die Schablone): 
Ed "FR0M/A,SIZE/N,WITH/K,WINDOW/K,TABS/N, 
WIDTH=C0LS/N,HEIGHT=R0WS/N" 

Hierzu einige Beispiele: 

Ed SYS:s/startup-sequence 
Ed Riesentext SIZE 100000 TABS 8 
Ed Ram:Text WINDOW "RAW:0/0/640/256/ 

Ed 2.OO/CLOSE/NOSIZE" 

Bei Workbench-Benutzung können mit »In¬ 
formation« aus dem »Icons«-Menü der Work¬ 
bench entsprechende »Tool Types« im Icon 
»Ed.info« bzw. den Project-Icons Ihrer Texte 
eingetragen werden. Deren Bedeutung ist: 
FROM - Name des zu editierenden Textes 
SIZE - Textpuffergröße (mind. 12000) 

WITH - Macro-Script für Konfiguration 
WINDOW - Windowdefinition für DOS-Funktion 
»Open()« 

TABS - Tabulator-Schrittweite (normal 3) 
WIDTH - Rechter Rand (Right Margin) 

HEIGHT - genutzte Zeilenanzahl 

Gibt man keine Parameter oder Tool-Types 
an. gelten folgende Defaultwerte: 

SIZE 60000 

WITH "S:Ed-Startup" 

WINDOW "RAW:0/0/639/199/Ed 2.00/CLOSE" 

TABS 3 
WIDTH 77 
HEIGHT 23 

Durch explizite Angabe einer Window-De¬ 
finition können Sie das ED-Window auch in 
voller Bildschirmgröße oder sogar auf einem 
Public-Screen öffnen. 

Nachdem ED sein Window geöffnet hat. ver¬ 
sucht der Amiga. die Datei »S:Ed-Startup« zu 
laden und als Macro-Script auszuführen (s.u.). 
Dieses File enthält in der Regel Anweisungen 
für globale Voreinstellungen von ED, z.B. De¬ 
finition der Roll-Down-Menüs. Funktionsta- 
sten-Belegungen. etc. 

Wird die Datei nicht gefunden, werden De¬ 
fault-Einstellungen vorgenommen. Interessan¬ 
terweise sind die Default-Roll-Down-Menüs 
wesentlich umfangreicher, als die in »S:Ed- 


Project hovenent 


ea j/.ii (13.5.91) 

updated by John fl 

Editing file dh0: 
Tab distance 
Left nargin 
Right nargin 
Block start 
Block end 
Buffer usage 
Buffer size 


3 

1 “ 

77 

Unset 

Unset 


59960 


Type any character td 


»Neuer ED«: Wußten Sie, daß der einfach 
stungsstarke Befehle und Menüs etc. verfii 


Slartup«. weshalb wir dem erfahrenen ED-Be- 
nutzer raten, dafür zu sorgen, daß ED diese Da¬ 
tei nicht findet (z.B. umbenennen), oderein ei¬ 
genes »Super«-WITH-File zu erstellen (s.u.). 

Wurde beim Programmstart mit dem Para¬ 
meter »WITH« ein weiteres Macro-Scriptfile 
angegeben, wird es nach dem automatischen 
Laden des ersten Textes beim Start zusätzlich 
ausgeführt. Man kann so entweder weitere Vor¬ 
einstellungen vornehmen, oder ED gewisser¬ 
maßen selbständig Texte bearbeiten lassen. 

ED bearbeitet Texte 
selbständig 

Der Ladevorgang 

Wie dem »/A« beim Template zu entnehmen 
ist. muß beim Start vom CLI/Shell immer ein 
Textfilename angegeben werden, das Schlüs¬ 
selwort »FROM« kann jedoch auch entfallen. 
Am einfachsten ist es. wenn man beim Start 
von ED den Namen eines nicht existierenden 
Files in der RAM-Disk angibt (»RAM:Dum- 
my«) und das eigentliche Textfile dann bequem 
durch den File-Requester auswählt. 

Während des Ladens zeigt ED die Füllung 
des Textpuffers durch Klammeraffen »@« an. 
deren Anzahl proportional zur Ausnutzung des 
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Line ESCd 
eplace... ESCeq 


lay ESCvw 


inue | 


auf Ihrer Workbench-Diskette über lei- 
VRexx ist alles möglich. 

(durch »SIZE« wählbaren) Puffers ist. (Rech¬ 
ter Windowrand = Puffer voll.) 

Jedes Textfile wird bereits während des La¬ 
dens einem Filterprozeß unterworfen. Hierbei 
verändert sich folgendes: 


-Alle Zeichen mit ASClI-Codes in den Be¬ 
reichen SO 1 -SOS. SOB. $0E-$1 A. S1C-S1F 
und $80-$9F führen zum Abbruch des La¬ 
devorgangs mit der Meldung »File contains 
binary«. 

- Die Zeichen $00, $0C (FF = FormFeed), $0D 
(CR = Carriage Return) und $1B (ESC = Es¬ 
cape) werden in $0A (LF = LineFeed) um¬ 
gewandelt! 

-Tabulator-Sprünge (TAB = $09) werden im¬ 
mer erweitert, d.h. je nach dem angegebenen 
Parameter »TABS« bis zum nächsten Tabu- 
lator-Stop mit Leerzeichen aufgefüllt. 
-Ferner werden alle Zeilen spätestens nach 
dem 255. Zeichen zwangsbeendet (truncated 
= abgeschnitten). 

Die Veränderungen werden ggf. nach dem 
Laden in der Statuszeile am unteren Window- 
Rand angezeigt. Die Kenntnis dieser Arbeits¬ 
weise von ED ist wichtig, da sie von der an¬ 
derer Editoren, die zumindest TAB- und ESC- 
Zeichen »durchlassen«, abweicht. Man kann 
ED daher als »Filter« für Textdateien fremder 
Editoren verwenden, die ihre Zeilen z.B. mit 
Nullbytes oder einfachem Return abschließen, 
oder den Text mit nicht-normgemäßen ESC- 
Sequenzen verunzieren. 

Die Bedienung 

Nach dem Starten präsentiert sich ED mit ei¬ 
nem Ihren Wünschen entsprechenden Conso- 
le-Window auf dem Workbench-Screen (Bild). 
Falls das angegebene Textfile geladen werden 
konnte, wird der Anfang des Textes in dem 
Window angezeigt, andernfalls ist es leer. 

Mit den Cursortasten kann wie gewohnt der 
Cursor im gesamten Window bewegt werden. 


Darüber hinaus positioniert ein Mausklick ins 
Window den Cursor an die Position des Maus¬ 
zeigers. Neu eingegebene Zeichen werden im¬ 
mer an der Cursorposition in den Text einge¬ 
fügt (Insert Mode), wobei evtl, rechts davon 
stehende Zeichen der Zeile weiter nach rechts 
verschoben werden. Stößt der Cursor rechts 
(oder links) an den Rand des Windows, so wird 
der Bildschirm in 10er Schritten horizontal ge- 
scrollt. Durch Drücken der Return-Taste wird 
die aktuelle Zeile an der Cursorposition auf- 
gespalten (Split) und der vorher rechts vom 
Cursor befindliche Teil der Zeile in einer neu 
eingefügten Zeile dargestellt. 

Zu Beginn einer neuen Zeile wird der Cur¬ 
sor an die Spalte bewegt, die durch den linken 
Rand (Left Margin) z.B durch den Befehl »SL« 
(s.u.) festgelegt wurde. Normalerweise ist das 
die erste Spalte. 

Bewegt sich der Cursor bei Eingabe eines 
neuen Textes über den rechten Rand (Right 
Margin), der z.B durch den Befehl »SR« oder 
das Schlüsselwort »WIDTH« beim Start fest¬ 
gelegt wurde, hinaus, wird automatisch eine 
neue Zeile begonnen und ggf. das letzte Wort 
der alten Zeile vollständig in die neue Zeile 
übernommen (Wordwrap). Dieser Wordwrap 
kann durch den Befehl »EX« bei Bedarf für die 
aktuelle Zeile außer Kraft gesetzt werden. 

Die unmittelbaren Befehle 

Einige Tasten sind bei ED mit besonderen 
Funktionen ausgestattet. Weil sie sofort durch 
Drücken einer Taste (oder -sequenz) ausgeführt 
werden, spricht man auch von »unmittelbaren 
Befehlen« (Immediate Commands). Tabelle 1 
enthält die Default-Belegungen aller Tasten. 


Tabelle 1: Die Default-Belegung aller redefinierbaren Tasten. 


Nr. 

Token 

Belegung 

Taste(n) 

Nr. 

Token 

Belegung 

Taste(n) 

Nr. 

— 

Token 

Belegung 

Taste(n) 

1 

1 

" 

Fl 

20 

20 

" 

<Shift> F10 

39 

A M 

S 

<Ctrt> M, <Retum>, <Enter> 

2 

2 

" 

F2 

21 

21 

CS 

<Shift> <Cursor_Left> 

40 

A N 

" 

<Ctrl> N 

3 

3 


F3 

22 

22 

CE 

<Shift> <Cursor_Right> 

41 

A 0 

DW 

<Ctrl> 0 

4 

4 

" 

F4 

23 

23 

T 

<Shift> <Cursor_Up> 

42 

A P 

" 

<Ctrl> P 

5 

5 


F5 

24 

24 

B 

<Shift> <Cursor_Down> 

43 


" 

<Ctrl> Q 

6 

6 


F6 

25 

25 

DC 

<Delete> 

44 

A R 

WP 

<Ctrl> R 

7 

7 

" 

F7 

26 

A@ 

BS 

<Ctrl> <BackTick (')> 

45 

A S 


<Ctrl> S 

8 

8 


F8 

27 

A A 

A // 

<Ctrl> A 

46 

A T 

WN 

<Ctrl> T 

9 

9 


F9 

28 

A B 

D 

<Ctrl> B 

47 

A U 

PU 

<Ctrl> U 

10 

10 


Fl 0 

29 

*C 

" 

<Ctrl> C 

48 

A V 

VW 

<Ctrl> V 

11 

11 


<Shift> Fl 

30 

A D 

PD 

<Ctrl> D 

49 

A W 

" 

<Ctrl> W 

12 

12 

" 

<Shift> F2 

31 

A E 

EP 

<Ctrl> E 

50 

A X 

" 

<Ctrl> X 

13 

13 

" 

<Shift> F3 

32 

A F 

FC 

<Ctrl> F 

51 

A Y 

EL 

<Ctrl> Y 

14 

14 

" 

<Shift> F4 

33 

*G 

RE 

<Ctrl> G 

52 

A Z 

" 

<Ctr!> Z 

15 

15 


<Shift> F5 

34 

A H 

DL 

<Ctrl> H, <Backstep> 

53 


CM 

<Ctrt> [, <ESC>, <Ctrt> Ü 

16 

16 


<Shift> F6 

35 

A l 

TB 

<Ctrl> 1, <Tab> 

54 

A \ 

" 

<Ctrl> \ 

17 

17 

" 

<Shift> F7 

36 

M 

" 

<Ctrl> J 

55 

A 1 

CT 

<Ctrl> ], <Ctrl> + 

18 

18 


<Shift> F8 

37 

A K 

" 

<Ctrl> K 

56 

AA 

" 

<Ctrl> 6 , <Ctrl> # 

19 

19 

" 

<Shift> F9 

38 

A L 

" 

<Ctrl> L 

57 

A 

" 

<Ctrl> -, <Ctrl> ß 
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wobei einige normalerweise noch unbelegt 
sind. Die Bedeutung der Buchstaben der Spal¬ 
te »Belegung« ist identisch mit den in Tabelle 
2 erklärten Extended Commands. Beachten 
Sie. daß Sie die Belegung der Tasten beliebig 
redefinieren können (s.u.). 

Die erweiterten Befehle 

Neben diesen unmittelbaren Befehlen be¬ 
herrscht ED auch noch sogenannte »erweiter¬ 
te Befehle« (Extended Commands): Nach 
Drücken der Escape-Taste springt der Cursor 
in die Statuszeile am unteren Rand des ED- 
Windows. Hier läßt sich nun hinter dem Aste¬ 
risk (»*«) ein »erweiterter Befehl« eingeben, 
wodurch die Leistungsfähigkeit von ED ganz 
erheblich gesteigert werden kann. Die Status¬ 
zeile wird deshalb auch oft als Befehlszeile 
(Command Line) bezeichnet. Durch Drücken 
der Return-Taste wird der Befehl ausgeführt, 
und evtl, eine Fehlermeldung an der gleichen 
Stelle (also in der Statuszeile) ausgegeben. 
Anschließend springt der Cursor wieder in den 
Textbereich. Beachten Sie bitte, daß in der Sta- 
tuszeile die Cursortasten und die »Del«-Taste 
nicht wie gewohnt funktionieren. 

Ein erweiterter Befehl besteht aus einem ein 
oder zwei Buchstaben langen Befehlswort und 
ggf. mehreren Argumenten. z.B. 

T 

A/Hallo/ 

SF 1 'E//AMIGA-Magazin/ 1 

Damit ED eindeutig zwischen Befehlswor- 
ten und Zeichenketten (Strings), in denen zu¬ 
fällig die gleichen Buchstaben Vorkommen, un¬ 
terscheiden kann, müssen Strings (also z.B. 
Texte, nach denen gesucht werden soll, oder Fi¬ 
lenamen) an beiden Seiten mit demselben Be¬ 
grenzungszeichen umrahmt werden. Als Be¬ 
grenzungszeichen sind alle Zeichen zugelassen, 
die nicht im einzurahmenden String Vorkom¬ 
men, und keines von folgenden Zeichen sind: 
Ziffern, Buchstaben. Leerzeichen, Fragezei¬ 
chen. Semikolon, runde Klammern. Begren¬ 
zungszeichen sind z.B. »/!\:'«. 

Erlaubte Befehle wären z.B.: 

OP /s:Startup-Sequence/ 

SA !dfO:s/Startup-Se<juence! 

E /Computer/AMIGA/ 

Im zweiten Beispiel durfte als Begren¬ 
zungszeichen kein Schrägstrich verwendet 
werden, da er bereits im Filenamen vorkommt. 
Tabelle 2 enthält eine Übersicht über alle er¬ 
weiterten Befehle, die ED beherrscht. Die mei¬ 
sten Befehle sind anhand der Tabelle - notfalls 
mit etwas »Trial and Failure«, sprich Auspro¬ 
bieren - selbsterklärend. Die Spalte »Mnemo- 
nic« enthält kurze englische Merkwörter, von 
deren Anfangsbuchstaben sich in der Regel der 
Name eines Befehls herleitet. 

Die Befehlswörter können in Groß- oder 
Kleinschrift (auch gemischt) verwendet wer¬ 
den. Man kann auch mehrere Befehle gleich¬ 
zeitig in der Befehlszeile eingeben. Sie werden 
dann durch Semikola »;« voneinander getrennt. 
Darüber hinaus kann vor jeden Befehl eine 
Zahl geschrieben werden, die angibt, wie oft 
der Befehl ausgeführt werden soll. Der spezi¬ 
elle Befehl »RP« (Repeat) wiederholt den 


Tabelle 2: Alle Befehle, die ED beherrscht 

Befehl 

Mnemonic 

Funktion 

A/s/ 

Append 

fügt »s« nach der aktuellen Zeile ein 

B 

Bottom 

springt ans Textende 

BE 

Block End 

setzt das Blockende 

BF 

Backward Find 

sucht rückwärts 

BS 

Block Start 

setzt den Blockanfang 

CE 

Cursor End 

setzt Cursor an Zeilenende 

CL 

Cursor Left 

bewegt Cursor ein Zeichen nach links 

CM 

Command 

Extended Command (ESC) 

CR 

Cursor Right 

bewegt Cursor ein Zeichen nach rechts 

CS 

Cursor Start 

setzt Cursor an Zeilenanfang 

CT 

Cursor Toggle 

wechselt zwischen Zeilenanfang/-Ende 

D 

Delete 

löscht Cursorzeile 

DB 

Delete Block 

löscht Block 

DC 

Delete Char 

löscht Zeichen unter Cursor (Del-Taste) 

DF 

Describe FN Key 

zeigt Belegung einer Funktionstaste an 

DL 

Delete Left 

löscht Zeichen links vom Cursor (Backstep-Taste) 

DW 

Delete Word 

löscht Wort unter Cursor 

E/s/t/ 

Exchange 

sucht nächstes »s« und ersetzt durch *>t« 

E 

Exchange 

sucht und ersetzt weiter, wie beim obigen Befehl 

EL 

Erase Line 

löscht Zeile ab Cursor 

EM 

Evaluate Menus 

berechnet neue Darstellung der Menüs 

EP 

Exchange Page 

wechselt Cursor zwischen Seitenanfang/-Ende 

EQ 

Exchange Query 

Suchen und Ersetzen nach Abfrage 

EX 

Extend Margins 

Randauflösung: setzt Randeinstellung außer Kraft 

F/s/ 

Find 

sucht vorwärts nach »s« 

F 

Find 

sucht vorwärts weiter, wie beim obigen Befehl 

FC 

Flip Case 

wechselt ein Zeichen zwischen Groß-/Kleinschrift 

FR 

File Requester 

schaltet File-Requester aus (an = FR1) 

\lsl 

Insert 

fügt »s« vor der aktuellen Zeile ein 

IB 

Insert Block 

kopiert Block an Cursorposition 

IF 

Insert File 

File nach aktueller Zeile einfügen 

J 

Join Lines 

hängt die nachfolgende Zeile ans Ende der aktuellen 

LC 

Lower Case 

Case Sensitive: Groß-/Kleinschreibung beachten 

Mn 

Move 

springt an Anfang von Zeile »n« 

N 

Next 

bewegt Cursor an Anfang der nächsten Zeile 

NW 

New 

löscht Puffer nach Sicherheitsabfrage 

OP 

Open File 

lädt neues Textfile 

P 

Previous 

bewegt Cursor an Anfang der vorherigen Zeile 

PD 

Page Down 

blättert eine (halbe) Seite vorwärts 

PU 

Page Up 

blättert eine (halbe) Seite rückwärts 

Q 

Quit 

Beenden ohne Speichern, aber mit Sicherheitsabfrage 

RE 

Repeat Extended 

wiederholt letzten erweiterten Befehl (ESC) 

RF 

Run File 

führt Script-File mit Macro-Befehlen aus 

RK 

Reset Keys 

Sondertasten-Belegung normalisieren 

RP 

Repeat 

solange wiederholen, bis Fehler oder Textende 

RV 

Request Values 

sendet aktuelle Werte von ED an ARexx 

RX 

Rexx 

führt ARexx-Befehl oder ARexx-Script-File aus 

S 

Split 

spaltet aktuelle Zeile an Cursorposition auf 

SA 

Save As 

speichert Text unter wählbarem Namen ab 

SB 

Show Block 

zeigt markierten Block an 

SF 

Set FN Key 

Funktionstasten belegen 

SH 

Show 

zeigt Informationen an 

Sl 

Set Item 

Menü-Item definieren 

SLn 

Set L Margin 

setzt linken Rand auf Spalte »n« 

SM 

Send Message 

Message ausgeben 

SRn 

Set R Margin 

setzt rechten Rand auf Spalte »n« 

STn 

Set Tab 

setzt Tabulator-Abstände auf »n« Zeichen 

T 

Top 

springt an Textanfang 

TB 

Tab 

springt nächste Tabulator-Position an 

U 

Undo 

Änderungen in aktueller Zeile rückgängig machen 

UC 

Upper Case 

Ignore Case: Groß-/Kleinschreibung ignorieren 

VW 

Validate Window 

ED-Fenster neuschreiben 

WB 

Write Block 

speichert Block in ein File 

WN 

Word Next 

bewegt Cursor ein Wort vorwärts 

WP 

Word Previous 

bewegt Cursor ein Wort rückwärts 

X 

Exit 

Beenden mit Speichern und Sicherheitskopie 

XQ 

Exit Query 

Speichern und Beenden nach Abfrage 
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nachfolgenden Befehl, bis ein Fehler auftritt 
(z.B. weil das Textende erreicht wurde). Durch 
Drücken einer beliebigen Taste kann notfalls 
die Ausführung wiederholter Befehle jederzeit 
unterbrochen werden. Schließlich kann man 
noch durch runde Klammern mehrere Befehle 
in der Befehlszeile zu Gruppen zusammenfas¬ 
sen, und mit eigenen Wiederholungsfaktoren 
versehen. Bei Befehlen, die mindestens ein Ar¬ 
gument erfordern, können Sie dieses Argument 
auch vom Anwender durch eine Frage mit frei 
wählbarem Text erfragen. Dazu dient ein Fra¬ 
gezeichen vor dem mit Begrenzungszeichen 
umrahmten Fragetext (maximal 29 Zeichen). 
Hierzu zeigt die Tabelle ein paar Beispiele: 


Beachten Sie. daß ED bei Wiederholungen 
von Befehlen nicht immer von selbst nach je¬ 
dem Befehl den kompletten Bildschirm aktua¬ 
lisiert. um Zeit zu sparen. Daher sieht es 
»ährend der Bearbeitung mancher Befehle so 
aus, als würden sie nicht richtig funktionieren. 
Durch Verwendung zusätzlicher »VW«-Be- 
fehle können Sie natürlich (auf Kosten von Be¬ 
arbeitungszeit) ED jederzeit anweisen, den 
Bildschirm komplett zu aktualisieren. 

Noch ein nützlicher Tip: Die Eingabe der er¬ 
weiterten Befehle ist zuweilen recht mühselig. 
Da es sich beim ED-Window um ein Console- 
Window handelt, können Sie sich durch ge¬ 
schickte Benutzung des Console-Clippings 
(Markieren und Einfügen mit der Maus) sehr 
viel Arbeit ersparen. Schreiben Sie einfach den 
betreffenden erweiterten Befehl in ein Shell- 
Window und kopieren Sie ihn von dort bei Be¬ 
darf in die Befehlszeile von ED. Wenn Sie als 
erstes Zeichen im Shell-Window ein Semiko¬ 
lon eingeben (aber dieses bitte nicht mit ko¬ 
pieren!), können Sie im Shell-Window auch 
»Return« drücken, ohne eine Fehlermeldung zu 
erhalten, und so bequem die Command-Line- 
History (Durchblättern alter Befehle mit Cur- 
sor_Up-Taste) benutzen. <Ctrl G> führt den 
letzten erweiterten Befehl nochmal aus. 

Die Funktionstasten 

ED erlaubt es, die Funktionstasten zu bele¬ 
gen. Ferner können fast alle Sondertasten 
(ESC. Return, Tab. usw.) und Control-Tasten- 
sequenzen beliebig redefiniert werden. Das 
Drücken einer solchen Taste (oder Tastense¬ 
quenz) wirkt so, als hätten Sie die ESC-Taste 


gedrückt und würden dann die, mit der ge¬ 
drückten Funktionstaste verbundenen. Befehle 
in der Statuszeile eingeben und ausführen. Die 
Definition einer Funktionstaste (oder einer 
Sondertaste oder Ctrl-Sequenz) erfolgt durch 
den Befehl »SF« (Set FN Key), der folgende 
Syntax hat: 

SF [Nummer I Token] <Belegung> 

Dem Befehlswort »SF« folgt wahlweise die 
Nummer der zu belegenden Taste gemäß Ta¬ 
belle 1. oder ihr sogenanntes »Token«, das sich 
in der Regel aus der Aufschrift der Taste her¬ 
leitet, und ebenfalls der Tabelle entnommen 
werden kann. Danach folgt die in Begren¬ 
zungszeichen eingerahmte neue Belegung der 


Taste. Zum Beispiel: 

SF *C 'F/Amiga/' 

bewirkt, daß nach jedem Drücken von <Ctrl C> 
der Cursor auf die nächste Textstelle, die das 
Wort »Amiga« enthält, positioniert wird. Man 
hätte genausogut »SF 29 ’F/Amiga/'« verwen¬ 
den können, denn die Sequenz »<Ctrl C> hat 
die Positionsnummer 29 in der Tabelle. 

SF 01 'E//AMIGA/' 

bewirkt z.B. daß bei jedem Drücken von Fl der 
Text »AMIGA« an der aktuellen Cursorposi¬ 
tion eingefügt wird. Natürlich können Sie 
auch komplette Befehlszeilen mit erweiterten 
Befehlen auf die Funktionstasten. Sondertasten 
oder Ctrl-Tastensequenzen legen, die dann 
durch einen einzigen Tastendruck ausgeführt 
werden, und z.B. auch Macro-Scriptfiles oder 
ARexx-Programme starten könnten (s.u.). 

Die Menüs 

ED bietet freidefinierbare Roll-Down- 
Menüs. Normalerweise werden die Menüs 
durch das Macro-Scriptfile beim Programm¬ 
start definiert, können aber auch jederzeit 
geändert werden. Um zu verstehen, wie diese 
Menüs definiert werden, tippen Sie bitte fol¬ 
gende 5 Zeilen nacheinander wie erweiterte Be¬ 
fehle ein: Drücken Sie für jede Zeile die ESC- 
Taste und geben dann in der Statuszeile hinter 
dem »*« eine Zeile ein. Beenden Sie jede Zei¬ 
le mit der Return- Taste. 

SI 0 1 'Mein Menü' 

SI 1 2 'Anfang' ’T' 

SI 2 2 'Ende' 'B‘ 

SI 3 0 
EM 


Wenn Sie nun die rechte Maustaste drücken, 
werden Sie feststellen, daß Ihr ED-Window 
jetzt ein Menü mit dem Titel »Mein Menü« 
und den beiden Menüpunkten »Anfang« und 
»Ende« besitzt. Doch damit nicht genug: Bei 
Auswahl von »Anfang« bewegt sich der Cur¬ 
sor - natürlich an den Textanfang. Bei »Ende« 
ans Textende. 

Jede Menüdefinition besteht aus einem oder 
mehreren »SI«-Befehlen (Set Item) mit ihren 
jeweiligen Parametern, und dem abschließen¬ 
den »EM«-Befehl. 

»EM« (Evaluate Menus) berechnet das kom¬ 
plette Menü (also nicht nur die letzten Ände¬ 
rungen) neu und verbindet es dann mit dem 
ED-Window. Bitte führen Sie den »EM«-Be- 
fehl niemals aus, wenn Sie nicht wirklich sicher 
sind, daß alle vorhergehenden »SI«-Befehle 
konsistent (untereinander sinnvoll) sind. 

Formal sieht ein »SI«-Befehl so aus: 

SI <Nuiraner> <Kennung> <Argumente> 

Dabei ist <Nummer> die laufende Nummer 
des Menü-Eintrags (Item), der definiert werden 
soll (maximal 99). Es müssen alle Menü-Items 
von 0 bis <Nummer>-1 bereits existieren. Sinn¬ 
vollerweise sollte man Items in aufsteigender 
Reihenfolge definieren. Die Menü-Items wer¬ 
den in der Reihenfolge ihrer Nummer im spä¬ 
teren Roll-Down-Menü dargestellt. Also 
Meniipunkt Nummer 2 unter Menüpunkt Num¬ 
mer 1, und ein Menü-Titel mit z.B. Nummer 3 
in der obersten Zeile, aber rechts von Menü¬ 
punkt Nummer 2. 

Leerzeichen zwischen »SI« und <Nummer> 
sind optional (können also auch entfallen), zwi¬ 
schen <Nummer> und <Kennung> muß aber 
mindestens ein Leerzeichen stehen. <Argu- 
mente> werden, sofern sie nötig sind, jeweils 
durch Begrenzungszeichen umrahmt und ggf. 
durch mindestens ein Leerzeichen voneinander 
getrennt. 

<Kennung> bezeichnet die Art des Menü- 
Eintrags und bestimmt dadurch auch Art und 
Anzahl eventueller Argumente. 

Es gibt folgende fünf Menü-Kennungen: 

□ Kennung 1 definiert einen Menütitel. 

Das einzige erlaubte Argument ist der Text 
des Titels, umrahmt von Begrenzungszeichen. 
Das Menü-Item mit der Nummer 0 muß immer 
ein Menütitel sein. Z.B.: SI 0 1 "Project" 

□ Kennung 2 definiert einen Meniipunkt. 

Wird dieser Menüpunkt ausgewählt, indem 

die rechte Maustaste losgelassen wird, während 
sich der Mauszeiger über diesem Menüpunkt 
befindet, wird der durch das zweite Argument 
bezeichnete erweiterte Befehl ausgeführt. Das 
erste Argument ist der Name des Menüpunk¬ 
tes, umrahmt von Begrenzungszeichen. Das 
zweite Argument wird so ausgeführt, als hät¬ 
ten Sie die ESC-Taste gedrückt und dann in der 
Statuszeile das zweite Argument als Befehl ein¬ 
gegeben. Selbstverständlich, kann dieser Be¬ 
fehl auch aus mehreren erweiterten Befehlen, 
durch Semikola (»;«) getrennt, bestehen und 
Wiederholungsfaktoren enthalten. Z.B. läßt 
sich der in vielen anderen Editoren vorhande¬ 
ne Befehl »Clone Line«, der die aktuelle Zei¬ 
le vervielfältigt, so realisieren: 

SI 1 2 ‘Clone Line' 'BS;BE;IB;N' 


Befehlsbeispiele 

Befehl 

Funktion 

M ?/Zeile:/ 

5 CR 

M 8;CS;9 CR 

LC;M 12;5 E/Amiga/AMIGA/ 
T;RP(E// /;N) 

T;RP(E// /;CS;DW;N);VW 
T;RP(CE;E// /;CL;DW;N);VW 

Fragt nach »Zeile:« und bewegt Cursor in die angegebene Zeile. 

bewegt den Cursor 5 Spa-lten nach rechts. 

bewegt Cursor in Spalte zehn von Zeile acht. 

ersetzt ab Zeile 12 fünf mal das Wort »Amiga«durch »AMIGA«. 

rückt den Text zwei Spalten weiter nach rechts. 

löscht alle Leerzeichen am Zeilenanfang (im gesamten Text). 

löscht überflüssige Leerzeichen am Zeilenende 

10(CS;3 WN;30 E// /; 

CS;29 CR;DW;N);VW 

rückt (z.B. bei einer Tabelle) in den folgenden zehn Zeilen 
das jeweils dritte Wort an Spalte 30. 

SA/NIL:/;OP/lvo.i/;LC;RP 
(CS;E/ equ/ =/;CL;30 

E// /;CS;29 CR;DW;VW;N) 

lädt das File »lvo.i« und ersetzt alle »equ«-Befehle durch 
Gleichheitszeichen. Außerdem sollen alle Gleichheitszeichen 
untereinander in Spalte 30 stehen. 
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□ Kennung 3 definiert ein Untermenü. 

Dieser Item-Typ wird in der aktuellen Ver¬ 
sion von ED bislang nur optisch unterstützt und 
erlaubt als einziges Argument den mit Be¬ 
grenzungszeichen umrahmten Namen. 

H Kennung 4 definiert eine Trennlinie. 

Anstelle des Menü-Items erscheint eine 
breite gerasterte Linie, die nicht ausgewählt 
werden kann. Dieses Item erfordert kein Ar¬ 
gument. 

□ Kennung 0 definiert das logische Ende des 
gesamten Menüs. 

Bei der Berechnung des Menüs durch »EM« 
ordnet der Amiga alle Menü-Items nach Num¬ 
mern und versucht, das Layout festzulegen, bis 
ein Item mit der Kennung 0 gefunden wird. Je¬ 
de Menüdefinition muß ein solches Item ent¬ 
halten! Dieses Item erlaubt kein Argument. 

Die Diskette zum Heft enthält mehrere Bei¬ 
spielmenüs und Funktionstastenbelegungen. 

Die Macro-Files 

Macro-Files sind Text-Dateien, die Befehle 
für ED enthalten. Alle Zeilen des Files werden 
dabei nacheinander so ausgeführt, als hätten Sie 
diese nach Drücken der ESC-Taste in der Sta¬ 
tuszeile von ED als Befehle eingegeben. 

Ein Macro-Scriptfile wird durch den »RF«- 
Befehl (Run File) gestartet, der als einziges Ar¬ 
gument einen, wie immer mit Begrenzungs¬ 
zeichen umrahmten. Filenamen verlangt. Häu¬ 
fig enthalten Macro-Seriptfiles Befehlszeilen, 
die zu lang, zu zahlreich, oder zu unübersicht¬ 
lich wären, um sie direkt auf Funktionstasten 
oder Menüs zu legen, oder direkt einzugeben. 
Ein konkretes Beispiel wären die oben be¬ 
sprochenen Menüdefinitionen,oderauch Funk¬ 
tionstastenbelegungen. Z.B. lädt »RF/S:Ed- 
Startup/« das normale Konfigurationsfile, wel¬ 
ches die bekannten spärlichen 3 Menüs »Pro- 
jeet«, »Movement« und »Edit« definiert. 

Der ARexx-Port 

Nach dem Start richtet ED einen öffentlichen 
Message-Port ein. überden das Programm mit 
ARexx kommunizieren kann. Dazu prüft das 
Programm, ob es bereits einen Message-Port 
namens »Ed« gibt. Falls nicht, erhält der Mes¬ 
sage-Port diesen Namen (»Ed«). Sollte der 
Message-Port schon existieren, wird nach 
»Ed_I« gesucht, danach nach »Ed_2« usw. 

Im folgenden nehmen wir an. daß der Rexx- 
Master-Prozess bereits gestartet wurde (z.B. 
durch Doppelklick auf das »RexxMast«-Icon 
im Verzeichnis »System« Ihrer Workbench- 
Diskette) und der Message-Port »Ed« heißt. 

Bitte beachten Sie: Es gibt kein Protokoll, 
um exklusiven Zugriff auf ED zu erlangen. 
D.h., theoretisch können Sie und ARexx 
gleichzeitig an ein und demselben ED arbeiten. 
Das kann zu unerwünschten Veränderungen 
des Textes führen. Führen Sie deshalb bitte kei¬ 
ne Operationen an ED aus (Text eingeben. Cur¬ 
sor bewegen. Mausklicks ins ED-Window, 
etc.), während ein ARexx-Script abgearbeitet 
wird (das denselben ED bedienen soll), und 
versuchen Sie nicht, von mehreren unter¬ 
schiedlichen ARexx-Scripts gleichzeitig auf 
ED zuzugreifen. 


/* DA.ed (Date) */ 

Address "Ed" 

Datum=Translate(Date("E"),".","/") 

'E!!'||Datum I|'!' 

Listing 1: »DA.ed« - Datum im Text 
einfügen auf Tastendruck 


/* HDB.rexx */ 

Address ■HDBACKUP_ CBM" 
options RESÜLTS 
'STATUS f' 

Merker = RESULT 

parse var Merker fa fb fc fd ff 
say "Files:" fc"/"fa 
say " Size:" fd"/"fb 

Listing 2: Auch »HDBackup« hat 
einen ARexx-Port 


/* UL.ed (Upper Line) */ 

Address "Ed" 

’RV/EdValues/' 

Zeile=EdValues.CURRENT 
Zeile=Delimit(Upper(Zeile)) 

'CS;EL' 

■E'IiLeft(Zeile.l)IIZeile 
•N* 

EXIT 

/* String begrenzen */ 

Delimit: Procedure 
Parse arg String 
dc="/\!:I§$%&=+**-<>' 1 -" 
xO=Verify(de,String) 
cl=Substr(dc,xO,1) 

String=cl|I String I|cl 
return String 

Listing 3: »UL« macht alle Buchsta¬ 
ben einer Zeile zu GroBhuchstaben. 


/* FL.ed (Fill Line) */ 

Address "Ed" 

'RV/EdValues/' 

Zeile=Trim(EdValues.CURRENT) 
ri=EdValues.RIGHT 
w=Words(Zeile)-1 
sp=ri-Length(Zeile)-1 
do 

if sp<l I w<l then Break 
ta=trunc(sp/w) 

Rest=sp-ta*w 
do n=l for w 
a=wordindex(Zeile,n+ 1 ) 
if a=0 then Break 
nn=ta+(Rest>0) 

Zeile=insert(" ",Zeile,a-l,nn) 
Rest=Rest-l 
end 

Zeile=Delimit(Zeile) 

'CS;EL' 

'E'|iLeft(Zeile,1)11 Zeile 
end 
'N' 

EXIT 

/* String begrenzen */ 

Delimit: Procedure 
Parse arg String 
dc="/\!:I§$%&=+**-<>’' 
xO=Verify(de,String) 
cl=Substr(dc,xO,1) 

String=cl|I String IIcl 
return String 

Listing 4: »FL« zentriert eine Zeile 
rechtsbündig 


Grundsätzlich läßt sich jeder erweiterte Be¬ 
fehl, der über die Tastatur eingegeben werden 
kann, auch durch ARexx ausführen. Zusammen 
mit den leistungsfähigen Stringfunktionen von 
ARexx und dessen strukturierter Program- 
mierbarkeit (Schleifen, Funktionen, etc.) eröff¬ 
nen sich wirklich ungeahnte Möglichkeiten der 
Textbearbeitung. Das folgende ARexx-Script 
würde z.B. den Namen einer sehr bekannten 
Computerzeitschrift in das ED-Window schrei¬ 
ben. 

/* Hallo ED! */ 

Address "Ed" 

"A/AMIGA-Magazin/" 

Die erste Zeile des Programms ist die obli¬ 
gatorische Kommentarzeile, mit der alle AR- 
exx-Programme beginnen müssen. Mit »Ad¬ 
dress "Ed"« wird der Messageport festgelegt, 
an den ARexx alle Befehle weitersendet, die 
keine ARexx-Befehle sind (sog. externe Kom¬ 
mandos). Die Zeile »"A/AMIGA-Magazin/"« 
schließlich ist der Befehl, den ARexx an ED 
sendet. Die Zeile ist (sicherheitshalber) in An¬ 
führungszeichen geschrieben, weil ARexx 
sonst versuchen könnte, den Befehl selbst aus¬ 
zuführen, statt ihn unverändert an ED weiter¬ 
zuleiten. Wie Sie sehen, dienen zum Fernbe¬ 
dienen von F.D durch ARexx in einem ARexx- 
Script genau die Befehle, die Sie als erweiter¬ 
te Befehle in der Statuszeile von ED eingeben 
würden, um dieselbe Funktion zu erreichen. 

Nach Ausführung jedes Befehls, den ARexx 
an ED sendet, erhält ARexx einen Return-Co¬ 
de zurückgemeldet, der im allgemeinen Auf¬ 
schluß über die ordnungsgemäße Bearbeitung 
des letzten Befehls gibt. Dieser Return-Code 
wird in der ARexx-Standardvariablen »RC« 
übergeben, die genaue Bedeutung kann Tabel¬ 
le 3 entnommen werden. Bitte beachten Sie, 
daß Return-Codes von 10 und größer norma¬ 
lerweise das ARexx-Script abbrechen, wenn 
nicht ein anderer FAILAT-Level gewählt wur¬ 
de, oder die Fehler intern (z.B. durch »SIG¬ 
NAL ON FAII.URE«) abgefangen werden. 

ARexx-Scripts für ED können auf drei ver¬ 
schiedene Weisen gestartet werden: 

Extern, durch Eingabe des Befehls »RX« ge¬ 
folgt vom Namen des ARexx-Scriptfiles in ei¬ 
nem CLI/Shell-Window. Explizit, durch Ein¬ 
gabe des erweiterten ED-Befehls »RX« gefolgt 
von dem mit Begrenzungszeichen umrahmten 
Filenamen, bzw. Auswahl des entsprechenden 
Menüpunktes. Am interessantesten ist jedoch 
die implizite Methode: 

Wenn ED einen unbekannten, erweiterten 
Befehl ausführen soll, wird der Befehl (sofern 
ED ihn nicht wegen grober Syntax-Fehler re¬ 
klamiert) an ARexx gesendet. ARexx versucht 
dann, ein ARexx-Scriptfile zu laden und aus¬ 
zuführen. das unter folgenden Namen in dieser 
Reihenfolge gesucht wird (angenommen, der 
eingegebene ED-Befehl sei 

»DA«): »REXX:DA.ed«,»REXX:DA«,»DA.ed«,»DA« 

Haben Sie z.B. Listing 1 abgetippt, und un¬ 
ter dem Namen »DA.ed« im Verzeichnis 
»REXX:« (normalerweise ist das »SYS:s«) ge¬ 
speichert. so würde jetzt das aktuelle Datum (in 
deutscher Schreibweise!) an der Cursorpositi¬ 
on in Ihren Text eingefügt. 
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/* FT.ed (Format Text) */ 
Text="Formatting Text...", 

II"Oa"x|I"Ctrl-C to Quit!" 

NI="lb"x||"[8m" 

Window="CON:416/0/178/30/", 

II"Ed Message/nosize/smart" 
call Open("Wd",Window) 
call Writech("Wd",Text IINI) 

Address "Ed" 
do forever 
'12SL1 1 

'RV/EdValues/' 

Zeile=EdValues.CURRENT 
ri=EdValues.RIGHT-1 
sp=ri-Length(Zeile) 

Select 

when sp<0 then 
do 
’CS' 

a=Lastpos(" ", Zeile,ri) 
if a<l then a=ri-l 
aII'CR;10SL1' 

'S' 

end 

when sp>l then 
do 

'CS;CT;5SL1' 
if Right(Zeile,1)~=" " 
then 'E// /' 

' J' 
end 

Otherwise 
'N;10SL1' 
end 
end 

Listing 5: Der »FT«-Befehl forma¬ 
tiert den Text 


Sie können sich also auf diese Weise belie¬ 
big viele zusätzliche Befehle (»Genies«) er¬ 
zeugen. Bei diesen selbsterzeugten Befehlen 
w ird der Rest der Befehlszeile immer ignoriert, 
und kann daher zur Übergabe von Parametern 
an den Befehl dienen (»LASTCMD«, s.u.). Bit¬ 
te beachten Sie: ARexx-Scripts werden immer 
asynchron gestartet (beliebig viele könnten 
gleichzeitig laufen). Versehen Sie einen selbst¬ 
erzeugten ED-Befehl daher niemals mit einem 
Wiederholungsfaktor, und warten Sie, bis das 
letzte ARexx-Script vollständig abgearbeitet 
wurde, bevor Sie ein neues starten; Sie würden 
ED sonst hoffnungslos verwirren! 

Um wirklich interaktiv mit ED zu kommu¬ 
nizieren. genügt es nicht. ED lediglich Befeh¬ 
le zu erteilen, und deren korrekte Bearbeitung 
anhand des Return-Codes (RC) zu prüfen. Des¬ 
halb können Sie von ED auch weitere Infor¬ 
mationen über Cursorposition, Zeilennummer. 
Randeinstellungen. ... und natürlich den voll¬ 
ständigen Inhalt (Textstring) der aktuellen 
Zeile, anfordem. Die Art der Datenübertragung 
weicht bei ED von der sonst üblichen Metho¬ 
de ab: Normalerweise fordert man mit einem 
speziellen Befehl einen erwünschten Wert an. 
und erhält diesen dann in der ARexx- Standard- 
Variablen »RESULT«. 

Übrigens: Wußten Sie, daß auch das Fest- 
platten-Backup-Programm »HDBackup« auf 
Ihrer Extras-Diskette einen ARexx-Port hat? 
Listing 2 zeigt z.B., wie man »HDBackup« In¬ 
formationen über Anzahl und Länge der zum 
Backup selektierten Files entlockt. 

Bei ED ist das (für den Anwender) etwas be¬ 
quemer gelöst: Es gibt nur einen einzigen Be¬ 


fehl (»RV«), der gleich alle Daten auf einmal 
anfordert. Als einziges Argument verlangt der 
»RV«-Befehl (Request Values) den, wie ge¬ 
wohnt mit Begrenzungszeichen umrahmten, 
Namen eines Variablen- Feldes, dem die Da¬ 
ten zugewiesen werden sollen. Z.B.: »"RV/Ed¬ 
Values/"« Anschließend enthält dann »EdVa- 
lues.X« die X-Position des Cursors, »EdVa- 
lues.LINE« die aktuelle Zeilennummer, usw. 
Insgesamt werden durch den einen Befehl 15 
Elemente des Feldes »EdValues« definiert. 
Wie Sie sehen, verwendet ED als Indizes nicht 
irgendwelche nichtssagenden Zahlen (z.B. I- 
15), sondern Mnemonics, aus denen man leicht 
die Bedeutung erkennen kann. Die Indizes ha¬ 
ben folgende Namen und Bedeutungen: 

.X: X-Position des Cursors im ED-Window. 
Nicht unbedingt identisch mit der Spaltenpo- 
sition in der aktuellen Textzeile (dazu müßte 
man .BASE addieren)! 

.Y: Y-Position des Cursors im ED-Window. 
Diese ist nicht unbedingt identisch mit der Zei¬ 
lennummer der aktuellen Zeile (die steht »fest« 
in .LINE)! 


/* Cü.ed (Cursor) */ 

Address "Ed" 

NI="lb"x|I"[8m" 

Wind="C0N:444/0/150/30/Cursor", 

II"/inactive/clo8e/nosize/wait" 
call Open("Wd",Wind) 

'RV/EdValues/' 

YP=EdValues.y 
LL=EdValues.LINE 
LM=EdValue8.LMAX 
LIsLL 

if LL>LM+1 then LI=LI+1 

IX=EdValues.X 

CO=EdValues.BASE+IX 

TE="";if LL<LM+2 then TE="-" 

TE="Line:"I|TE||LI" Col:"CO, 

1I"0a"x"Y:"YP " X;"IX 
call Writech("Wd",TElINI) 

Listing 6: »CU«: Cursorposition im 
Window 


.BASE: Bekanntlich scrollt das ED-Window 
horizontal, falls der Cursor über die Spalten- 
position, die maximal im Window dargestellt 
werden kann, hinausbewegt wird. .BASE gibt 
dann den Offset an. also die Anzahl der Zei¬ 
chen, die am linken Windowrand nicht mehr 
dargestellt werden. (Aufgrund der verwende¬ 
ten Scrollmethode immer 0 oder ein ganzzah¬ 
liges Vielfaches von 10.) 

.LINE: Zeilennummer der aktuellen Zeile in¬ 
nerhalb des gesamten Textes. Achtung, Bug: 
Dieser Wert stimmt nur für die erste Seite, 
wenn Textzeile 1 in der ersten Windowzeile 
steht, sonst ist er immer um 1 zu klein. 

.LEFT: Left Margin. Linker Rand, eingestellt 
mit »SL«. Bestimmt die Position, an die der 
Cursor beim Beginnen einer neuen Zeile (z.B. 
nach Return) positioniert wird. Normalerwei¬ 
se 1. 

.RIGHT: Right Margin. Rechter Rand, einge¬ 
stellt mit »SR« oder »WIDTH« beim Aufruf. 
Bestimmt die Position, an der bei neueingege¬ 
benen Zeilen ein automatischer Wordwrap er¬ 
folgt. Normalerweise .WIDTH+I. 


.TABSTOP: Tabulator-Abstände, eingestellt 
mit »ST« oder »TABS« beim Aufruf. De¬ 
faultmäßig 3. 

.LMAX: Anzahl der Textzeilen, die gleichzei¬ 
tig ins ED-Window passen, minus 1. 

.WIDTH: Anzahl der Zeichen, die in einer Zei¬ 
le des ED-Windows dargestellt werden können, 
minus 1. 

.EXTEND: Boolean-Wert der Randauflösung 
(»EX«) für die aktuelle Zeile. Normalerweise 
0 für keine Randauflösung, d.h. beim Über¬ 
schreiten von .RIGHT tritt ein Wordwrap ein. 
.FORCECASE: Boolean-Wert der Case-Sen- 
sitivity bei allen Such-Befehlen. Normaler¬ 
weise 1 für »Groß-/Kleinschreibung beachten« 
(sensitive, »LC«). 

.FILENAME: Name der Datei im Textpuffer. 
.CURRENT: Inhalt der aktuellen Zeile. 
.LASTCMD: Letzter erweiterter Befehl, der 
über die Tastatur eingegeben wurde (komplet¬ 
te Befehlszeile). 

.SEARCH: letzter Suchstring.: 

Der in Listing 3 abgedruckte Befehl »UL« 
(Upper Line) wandelt alle Buchstaben der ak¬ 
tuellen Zeile in Großbuchstaben um. »FL« (Fill 
Line) aus Listing 4 fügt in der aktuellen Zeile 
zusätzliche Leerzeichen ein, so daß der Text 
rechtsbündig ist. Listing 5 zeigt den Befehl 
»FT« (Format Text), der den Text ab der Cur¬ 
sorzeile so umformatiert, daß alle Zeilen opti¬ 
mal ausgefüllt werden (Zeilenumbruch). »CU« 
(Cursor) aus Listing 6 zeigt die Cursorpositi¬ 
on in einem eigenen Window an. 

Die Diskette zum Heft enthält noch einige 
weitere selbsterzeugte Befehle und Arexx-Li- 
stings zum Steuern von ED. ■ 

l.lleraturhinueisc: 

111 Amiga Bcnui/crhumlbuch (Licferuinf. jedes Amiga vor OS 2.0) 
|2| Commodore-Amiga Inc.: Amiga-DOS-Handbuch. Markt & Tech¬ 
nik Verlag. München, ISBN 3-89090-465-3 

|3| Alexander Kochann und Oliver Reiff: Königliches Paar. AMIGA- 
Maga/in 3/93. Seite 52 ff. 

|4| Christian Kuhnert: Amiga Profi-Know-How. DATA BECKER. 
Düsseldorf. ISBN 3-89011-30I-X 



RC 

Bedeutung 

0 

OK 

1 

Last line deleted 

2 

No room in buffer 

3 

Creating new file 

4 

Input lines truncated 

5 

Top of file 

6 

End of file 

7 

Line too long 

8 

Unknown command 

9 

Unmatched () 

10 

Commands abandoned 

11 

Syntax error 

12 

Unable to open file 

13 

Number expected 

14 

No block marked 

15 

Cursor inside block 

16 

Block incorrectly specified 

17 

Search failed 

18 

Tabs in input file expanded 

19 

Rexx not available 

20 

Out of memory for Operation 

21 

Unknown internal error 
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ARexx-Tips 



AREXX 


Befehls-Baukasten 

Eine der herausrügenden Eigenschaften von ARexx ist es, daß man Anwen¬ 
derprogramme quasi fernsteuem kann. Das läßt sich z.B. nutzen, um Pro¬ 
gramme wie CygnusED oder DirOpus um eigene Befehle zu erweitern. Der 
folgende Artikel zeigt, wie es gemacht wird. 


von Kurl Schuster 


D ie zwei ARexx-Scripts »StorePath.do- 
pus« und »RestorePath.dopus« er¬ 
leichtern die Arbeit mit »Directory 
Opus« (kurz »DOpus«), Nach der Arbeit mit 
»DOpus« werden die Pfade beider Fenster ge¬ 
speichert und bei einem Neustart wieder gela¬ 
den. Man betritt seine Arbeitsfläche, so wie 
man sie verließ. Wenn man das nicht will, be¬ 
steht die Möglichkeit. »DOpus« zu verlassen, 
auch ohne einen Pfad zu speichern. 


/* StorePath.dopus - Speichert Pfad mit dem 
DOpus verlassen wird */ 
address 'dopus_rexx' 
options results 
filename = "s:DOpusDirStore" 

Status 13 0 

path_0 = result 

Status 13 1 

path_l = result 

8 c=open(wdat,filename,’W') 

if sc=0 then exit 10 

writeln(wdat,path_0) 

writeln(wdat,path_l) 

sc=clo8e(wdat) 

quit 

exit © 1993 M&T 

»StorePathdopus«: Speichert beim 
Verlassen von DOpus den Pfad 


Gehen Sie wie folgt vor: 

1. Kopieren Sie die beiden Dateien »Store¬ 
Path.dopus« und »RestorePath.dopus« in den 
»REXX:«-Ordner 

2. Konfigurieren Sie in »DOpus« ein Gadget. 
am besten über dem kleinen »Q«uit-Gadget in 
der rechten unteren Ecke des Bildschirms mit: 

- Gadget name QÜIT+SAVE 

- Funktion StorePath 

- (Funkt.art) ARexx (rechts v. Qualifier) 

- Stack size 4000 

- (alle anderen Einstellungen sind nicht 
selektiert) 

3. Konfigurieren Sie die Datei »System/AR- 
exx/Startup script«: Tragen Sie dort »Restore- 
Path« ein. 

4. Löschen Sie »System/Directories/Auto left 
Directory« und »Auto right Directory«. 

Und dann bleibt nur noch Ihnen viel Spaß 
mit dem neuen DirOpus zu wünschen - auf 
ähnliche Art können Sie natürlich auch ande¬ 
re eigene Verbesserungen einführen. 


/* RestorePath.dopus 

Lädt Pfad mit dem DOpus verlassen wurde */ 
address 'dopus_rexx' 
options results 
filename = "s:DOpusDirStore“ 

8 c=open(rdat,filename,’R*) 
if sc=0 then do 

path_0="Work:” 

path_l="RAM: M 

end 

eise do 

path_0=readln(rdat) 

path_l=readln(rdat) 

end 

sc=close(rdat) 

Status 13 0 set path_0 
Status 13 1 set path_l 
exit © 1993 M&T 

»RestorePath.dopus«: Zum auto¬ 
matischen Setzen eines Pfades 


Mit den ARexx-Scripts »StorePath.ced« und 
»RestorePath.ced« erhält auch der beliebte Edi¬ 
tor »CygnusEd« die Fähigkeit, sich Dateina¬ 
men mit deren Pfaden zu merken. Der An¬ 
wender kann auf einfache Weise mit Hilfe des 
CED-File-Requesters aus den zuletzt bearbei¬ 
teten Dateien wählen, ohne sich um deren Pf¬ 
ade kümmern zu müssen. Öffnet man eine Da¬ 
tei. wird ihr Name automatisch der »Schnell- 
Auswahlliste« hinzugefügt; die Position des 
Cursors wird, falls die Datei schon einmal ge¬ 
sichert wurde, restauriert. 


/* StorePath.ced QRT 100992 V0.8 

speichert Pfad und aktuelle Cursorposition 
einer Datei durch Amiga-w(rite), keine 
Werte speichern durch die analogen 
Menüaufruf (mit rechter Maustaste ...) 
oder Alt-w(rite) 

*/ 

address 'rexx_ced' 
options results 
storejath = "sscedstore/" 

Status 19; pun = result 
Status 21; name = result 
Status 56; nby = result; 

Status 46; nby = nby + result 

sc=open(wdat, störe jathl Iname, 'W') 

if sc=0 then exit 

writeln(wdat.pun) 

writeln(wdat.nby) 

sc=close(wdat) 

save 

exit © 1993 M&T 

»StorePath.ced«: Speicherhilfe für 
den Editor CygnusEd-Professional 


Wenn Sie ARexx ordnungsgemäß installiert 
haben, CED Version 2.12 besitzen und sich die 
Dateien »StorePath.ced«. »RestorePath. ced« 
»QuickOpenlnst.rexx« und »QuickOpenlnst. 
txt« (letztere aus Platzgründen nur auf PD-Dis- 
kette zum Heft) in einem beliebigen Verzeich¬ 
nis oder auf Diskette befinden, tippen Sie vom 
CLI aus (nehmen wir an die vier Dateien be¬ 
finden sich auf »Df():QuiOp«): 
rx DFO;QuiOp/QuickOpenlnst 
Unter WB 2.0 kann »rx« entfallen. Die 
Grundinstallation erfolgt nun per ARexx- 
Script, dann werden Sie noch aufgefordert die 
Makro-Installation »per Hand« (nach Anlei¬ 
tung auf PD-Diskette) durchzuführen und 
schon kann es losgehen. Das System läßt sich 
leicht erweitern. z.B. die CED-Funktionen 
»Quit« oder »Save as« könnte auch unterstüt¬ 
zen werden. ■ 


/* RestorePath.ced QRT 100992 V0.8 
lädt ausgewählte Datei aus der Liste 
der zuletzt bearbeiteten Dateien, wenn 
Amiga-o(pen) benutzt wird, Auswahl aus 
beliebigem Verzeichnis durch die analogen 
Menüaufrufe (mit rechter Maustaste ...) 
oder Alt-o(pen) 

V 

address 'rexx_ced' 
options results 
storejath = "stcedstore/" 

Status 18; changes = result 
if changes-=0 then do 
clear 

Status 18; changes = result 
if changes-=0 then exit 
end 

q = '22'x 
nby = 0 

getfilename storejath 
pun = result 

if pun="RESULT" then exit 
if index(pun,storejath )-=0 then do 
sc = open(rdat,pun,'R■) 
if sc=0 then exit 
pun = readln(rdat) 
nby = readln(rdat) 
sc = closeirdat) 
end 

open q|IpunI|q 

jump to byte nby 

Status 19; pun = result 

Status 21; name = result 

sc=open(wdat,storej?athlIname, 1 W') 

if sc=0 then exit 

writeln(wdat,pun) 

writeln(wdat,nby) 

sc=close(wdat) 

exit © 1993 M&T 

»RestorePath.ced«: Lädt Dateien 
immer aus richtigen Verzeichnis 
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AREXX 


3-D-Funktionsplotter 

CIRCLE & Co für 


ARexx 


olCOS(xz)/(EXP(x»z)+P _ inle 



_ ä 

3-D-EITekt: Die Grafik haben wir per ARexx mit Unterstützung der »rexxmath- 
lib.library« programmiert -dargestellt wird die Funktion cos(xz(/(exp(x*z)+l) 


ARexx wird erwachsen. Wirzeigen Ih¬ 
nen, wie Sie mit ein paar Tricks dieser 
Sprache auch Grafikfnnktionen bei- 
bringen; Fnnktionen, die alles in den 
Schatten stellen, was Amiga-Pro- 
grammierer in Sachen 3-D-Grafik bis¬ 
her mit den normalen AmigaBASIC- 
Befehlen versucht haben. 


von Ilse ii. Rudolf Wolf 


D ie mathematischen Funktionen des AR¬ 
exx kann man mit der »rexxmathlib.li- 
brary« von der f ish 227 ergänzen, die 
alle trigonometrischen Funktionen. e\ x y und 
die Fakultät (n!) liefert. 

Binden Sie zusätzlich auch APIG (Fish 
634) ein. können Sie in ARexx sogar Grafik¬ 
programme schreiben, denn die Zusatzbiblio¬ 
theken ermöglichen den Zugriff auf die wich¬ 
tigsten Funktionen der »graphics.library« des 
Amiga-Betriebssystems. 

Eine Anwendung zeigt der nachfolgend vor¬ 
gestellte 3-D-Funktionsplotter (Listing unten). 
Auf die ausführliche Erklärung der mathema¬ 
tischen Grundlagen gehen wir hierbei nicht ein. 
Wer tiefer in dieses Gebiet eindringen möch¬ 
te. sei auf die im Literaturverzeichnis am En¬ 
de dieses Artikels genannten Fachbücher und 
Artikel verwiesen. 

Ilm räumliche Objekte am Bildschirm dar- 
zustellen. müssen Beziehungen zwischen den 


räumlichen Koordinaten x. y. /. eines Punkts 
und den ebenen Bildschirm-Koordinaten ti. v 
hergestellt werden. Zur Lösung dieses Pro¬ 
blems wurden zahlreiche Projektionsarten ent¬ 
wickelt. Für die Darstellung von Funktions¬ 


grafen am Bildschirm wird vorwiegend die 
Zentralprojektion angewendet. In der darstel¬ 
lenden Geometrie paßt sich der Beobachter 
dem Objekt an. In unserem Programmbeispiel 
ist jedoch das Projektionszentrum Fix und das 


/* ========== 3D-Plot.rexx ========== */ 

/* Externe Bibliotheken einbinden */ 
if(~show('1', 1 rexxsupport.library')) 

then call addlib('rexxsupport.library0,-30,0) 
if(~show('1','apig.library')) 

then call addlib('apig.library0,-30,0) 
if(~show(' 1 •,•rexxmathlib.library')) 

then call addlib('rexxmathlib.library',0,-30,0) 

/* Intuition-Konstanten global setzen */ 
call set_apig_globals() 

PI =3.141593 

/* Messageport öffnen */ 
portname ="msgport" 
call openport(portname) 

WaitForPort portname 

call defaultO /* Voreinstellungen *7 

call parameterlO /* Voreinstellungen ändern *7 

call rotationO /* Drehung im Raum */ 

/* Fenster öffnen */ 
winidcmp=CLOSEWINDOW 

flagS=WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+, 
WINDOWDEPTH+GIMMEZEROZERO+ACTIVATE 
win=openwindow(portname,0,0,wx,wy,2,0,winidemp, 

,flags,title,null(),0, 0 , 0 ) 
rastp=getwindowrastport(win) 


call setapenfrastp,3) /* AREA-Füllfarbe */ 
call setopen(rastp,1) /* Outlinepen */ 
call plotO 

do forever 

x=waitpkt(portname) 
do forever 

msg='0000 0000 'x 
msg=getpkt(portname) 
if msg='0000 0000'x then leave 
class=getarg(msg,0) 
if class=CLOSEWINDOW then exitme=l 
x=reply(msg,0) 

end 

if exitme=l then leave 
end 

/* Aufräumen */ 
a=closewindow(win) 
exit 

/* Zeichenroutine */ 
plot: 

zeilel=0;zeile2=l 
incz=(ze-za)/(zlines-1) 
incx=(xe-xa)/(dichte-1) 
netz=dichte/xlines 
do z=ze to za by -incz 


»3D-Plot.rexx«: Mit diesem 
Programm können Sie 
Funktionen per ARexx 
dreidimensional darstellen 
(Anfang) 
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Objekt wird durch die geeignete Wahl des 
Kipp- und Drehwinkels solange gedreht und 
gewendet, bis es sich von der gewünschten An¬ 
sicht zeigt. 

Im dreidimensionalen Koordinatensystem 
gibt es drei Achsen: x , y und z. Hier gibt es 
zwei Möglichkeiten: Die z-Achse ragt aus der 
Zeichenebene heraus (Rechtssystem) oder in 
sie hinein (Linkssystem). Im Beispielpro¬ 
gramm »3D-Plot.rexx« setzen wir das Links¬ 
system ein. das sich in der Mathematik einge¬ 
bürgert hat. 

Am Anfang des Listings erfolgen zunächst 
einige Initialisierungen, die verschiedene Pa¬ 
rameter und Transformationen betreffen. Hier 
haben Sie Spielraum für Änderungen. Die vor- 
eingestellten Werte wurden für jede Funktion 
ausprobiert und liefern ein schönes Bild. 

Wenn Sie eine neue Funktion ausprobieren 
und zunächst einen groben Überblick bekom¬ 
men wollen, verringern Sie die Dichte des Net¬ 
zes, da so die Erstellung der Zeichnung weni¬ 
ger Zeit in Anspruch nimmt. 

Die Variable »dichte« gibt an, wie viele Ein¬ 
zelpunkte in jeder y/z-Ebene berechnet werden 
müssen. Die Variable »znetz« enthält die glei¬ 
che Information für die x/y-Ebenen und 
»xnetz« bestimmt, wie viele Netzlinien pro x- 
lntervall die waagrechten Netzlinien kreuzen 
sollen. 

Auch die nachfolgenden Parameter können 
Sie ändern bzw. anpassen, z.B. den Dreh- und 
Kippwinkel: 

- dw Drchwinkel 

- kw Kippwinkel 

Beispielsweise liefert »kw=0« die Ansicht 
von vorne. Positive Werte liefern einen Blick 



swap=zeilel 
zeilel=zeile2 
zeile2=swap 
zaehler=-l; steml=0 
do x=xa to xe by incx 
/* Funktion aufrufen */ 
call funktionlO 
/* Transformation */ 
xtrl=sx*x;ytrl=sy*y;ztrl=sz*z 
xtr2=xtrl*wl+ztrl*w2 
ytr2=xtrl*w3+ytrl*w4+ztrl*w5 
ztr2=xtrl*w6+ytrl*w7+ztrl*w8 
u =tx-pz*(xtr2-0)/(ztr2-pz) 
v =ty+(pz*ytr2/(ztr2-pz))/2 
knoten=0 

/* Zeile speichern */ 
storeX.steml.zeilel=u 
storeZ.steml.zeilel=v 
zaehler =zaehler+l 

/* Polygon für Netzfläche berechnen */ 
if zaehler=netz & z ~=ze & y>=ya & y<=ye then do 

zaehler=0 

do idx=steml-netz TO steml 
u=storeX.idx.zeilel 
v=storeZ.idx.zeilel 

u. knoten=u 

v. knoten=v 
knoten=knoten+l 

end 

do idx =steml TO steml-netz by -1 
u=storeX.idx.zeile2 
v=storeZ.idx.zeile2 

u. knoten=u 

v. knoten=v 
knoten=knoten+l 

end 


/* Netzfläche zeichnen */ 
a=makearea(win,640,256,100) 
a=areamove(rastp,u.0, v. 0) 
do idx=l to knoten -1 

a=areadraw(rastp,u.idx,v.idx) 
end 

a=areadraw(rastp,u.0,v. 0 ) 
a=areaend(rastp) 
a=freearea(win) 
end 

steml=steml+l 
end 

end 
return 

/* Voreingestellte Parameter */ 
rotation: 

dw=dw*PI/180 /* Drehwinkel */ 
kw=kw*PI/180 /* Kippwinkel */ 
wl=COS(kw) 
w2=-SIN(kw) 
w3=SIN(dw)*SIN(kw) 
w4=COS(dw) 
w5=SIN(dw)*COS(kw) 
w6=COS(dw)*SIN(kw) 
w7=SIN(dw) 
w8=COS(dw)*COS(kw) 
return 

default: 

wx=640;wy=256 /* Fenstergröße */ 

dw=30;kw=-40 /* Rotationswinkel */ 

tx=wx/2; ty=wy/2 /* Ebenentranslation */ 
pz=-500 /* Projektionszentrum */ 

sx=3;sy=3;sz=3 /* Skalierung */ 

/* Intervalle Anfang/Ende */ 
xa=-63;xe=63;ya=-63;ye=63;za=-63;ze=63 


»3D-Plot.rexx«: Mit diesem 
Programm können Sie 
Funktionen per ARexx 
dreidimensional darstellen 
(Fortsetzung) 
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Erraten?: Das Bild stellt die Funktion 
2*sin(xz)+sin(2*xz) dar (Formel 8) 


von oben. Negative Werte liefern eine Ansicht 
von unten. Voreingestellt sind »dw=-7.5« und 
»kw=40«. 

- Die Entfernung und Lage des Projektions¬ 
zentrums (Fluchtpunkt) bestimmt die Variable 
pz. Voreingestellt ist »pz=-500«. 

- Die Skalierung der Abbildung erfolgt mit den 
Skalierungsfaktoren sx, sy und sz. Voreinge¬ 
stellt ist 3. 

- Anfang und Ende des zu zeichnenden Inter¬ 
valls (63 entspricht etwa 2*PI) werden durch 
die Raumkoordinaten xa. xe, ya, ye. za und ze 
festgelegt. 

- Die Auflösung der Zeichnung hängt von der 
Größe der Netzflächen und der Anzahl der zu 
berechnenden Stützpunkte ab. Die Anzahl der 



Extravagant: Diesmal die Funktion 
x*x-z*z+ sin( 1/x)/x (Formel 2) 


Netzlinien pro z-Intervall wird mit »netz« be¬ 
stimmt, für das x-Intervall ist »xnetz« zustän¬ 
dig. Die Dichte der Stützpunkte wird mit der 
Variablen »dichte« festgelegt. 

Bevor mit dem Zeichnen des Funktionsgra¬ 
fen begonnen werden kann, muß natürlich ein 
Fenster geöffnet werden, denn ohne ein solches 
läuft bekanntlich am Amiga nichts. 

In den ineinander geschachtelten DO...END- 
Schleifen werden dann die Funktionswerte be¬ 
rechnet, per Zentralprojektion in die Bild¬ 
schirm-Koordinaten u und v projiziert. Diese 
bilden die Netzknoten für die jeweilige Netz¬ 
fläche und werden in ein Array geschrieben. Ist 
eine Fläche berechnet, wird sie mit der AREA- 
FILL-Funktion gefüllt. Weil von hinten nach 


vorne gezeichnet wird, ist auch das Problem 
der verdeckten Linien und Flächen gelöst, weil 
alles was dahinter gezeichnet wurde, mit der 
AREA-Funktion übermalt wird. 

An das eigentliche Programm wurden Un¬ 
terprogramme mit den Definitionen für acht 
Funktionen und den dazu geeigneten Parame¬ 
tern gehängt. Die zu zeichnende wird mit »call 
parameterXO« in Zeile 20 und mit »call funk- 
tionXO« in Zeile 62 ausgewählt. ■ 

Literatur: 

[I | Walter Wunderlich: Darstellende Geometrie I u. II. Bl-Hoch- 
schultaschcnbueh 1966/67 

|2) R.E. Myer: Microcomputer Graphics. Addison Wesley 1982 
UM Markus Weber: 3-D-Grafik, IWT-Verlag 1984 
|4| Dr.G.GIaescr: 3-D-Programmierung mit BASIC, Mikrocomputer- 
Praxis- B.G.Teubner 1986 



Einfach: y = 0,01*(x*x-z*z) per ARexx 
ins Bild gebracht (Formel 1) 


/* Größe einer Netzfläche */ 

dw= 3 0;kw=-4 0 

zlines=20 /* Linien pro z-Intervall */ 

title="SIN(xz)" 

xlines=15 /* Linien pro x-intervall */ 

return 

faktor=2;dichte=faktor*xlines 


return 

funktionS: 

/* **** voreingestellte Funktionen **** */ 

xz=SQRT(x*x+z*z)/10 
y=20*COS(xz)/(EXP(x*z)+l) 

/* **** siehe auch Bilder im Artikel **** */ 

return 

funktionl: 

Parameters: 

y=(x*x-z*z)/100 

tx=wx/2-20;ty=wy/2-20 

return 

sx=4;sy=4;sz=4 

parameterl: 

za=-40;ze=50 

pz=-1000;za=-52 

title="COS(xz)/(EXP(x*z)+l)" 

dw=30;kw=-30 

return 

title=".01*(x*x-z*z) (Sattelfläche)" 


return 

funktionS: 

funktion2: 

y =SQRT(x*x/4+z*z/9) 
return 

y=.01*(x*x-z*z)+140*(SIN(1/x)/x) 

parameter6: 

return 

ty=wy/2+20; pz=-600 

parameter2: 

title="SQRT(x*x/4+z*z/9)" 

ty=wy/3+30;pz=-600 

return 

title="x*x-z*z+SIN(l/x)/x" 


return 

funktion7: 

funktion3: 

xz=SQRT(x*x+z*z)/10 
y=-30*COS(xz)*EXP(-xz/15) 

xz=SQRT(x*x+z*z)/10 

parameter7: 

y=20*(COS(xz)-COS(3*xz)/3+COS(5*xz) / 5) 

ty=wy/3 

return 

title="COS(xz)*EXP(-xz/15)" 

parameter3: 

return 

ty= 8 0;dw=3 0;kw=-60 


sx=5.5;sy=5.5;sz=5.5 

funktion8: 

xa=-30;xe=30;ya=-30;ye=30;za=-30;ze=30 

xz=SQRT(x*x+z*z)/10 

title="COS(xz)-COS(3*xz)/3+COS(5*xz)/5 M 

y=10*(2*SIN(xz)+SIN(2*xz)) 

return 

return 

funktion4: 

parameter8: 
ty=wy/3 

xz=SQRT(x*x+z*z)/10 

title="2*SIN(xz)+SIN(2*xz)" 

y=20*SIN(xz) 

return © 1993 M&T 

return 

»3D-Plot.rexx«: 3-D-Plotter für Funktionen in ARexx - 

ty=wy/3 

acht Formeln bzw. Bilder sind bereits programmiert 
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Octree: 


3-D-Grafiken mit dem Computer zu berechnen ist eine faszinierende Sache. 
Besonders , wenn man realistische Bilder berechnet , nach dem sog. Raytracing- 
Verfahren. Wir zeigen Ihnen, wie man so etwas programmiert und stellen 
Ihnen sogar eine Verbesserung - sprich Beschleunigung - des gängigen 
Octree-Algorithmus und seine Implementierung vor. 


von Markus Porto 


Z ur Erzeugung von künstlichen, photo¬ 
realistischen Bildern bedient man sich in 
der Regel des Raytracing-Verfahrens, 
also der Ermittlung der Lichtintensität an einem 
bestimmten Rasterpunkt durch Rückverfol¬ 
gung der Lichtstrahlen. Der zugrundeliegende 
Algorithmus besticht durch seine Einfachheit 
und Kürze. Allerdings sind die Ausführungs¬ 
zeiten in der nicht optimierten Grundversion 
extrem lang. 

Dieser Artikel beschreibt nicht das traditio¬ 
nelle Verfahren zur Bildberechnung mit Hilfe 
des Raytracing-Verfahrens - das wird detail¬ 
liert und ausführlich in 111 vorgestellt, dem 
Standardwerk zur Computergrafik schlechthin, 
aber auch in |2| oder [3|. Hier geht's um eine 
Erweiterung des Algorithmus’, der in seiner 
Grundform sehr einfach, leider aber auch sehr 
langsam ist. 

Gut Ding will Weile 
haben 

Wir stellen die Probleme des traditionellen 
Verfahrens vor. zeigen Techniken zur Be¬ 
schleunigung. gehen auf den Octree-Algorith¬ 
mus ein. widmen uns dem Strahlengenerator 
von Müller sowie Verfahren von Glassner, Sa- 
met und Endl zur Suche einer Nachbarzelle. 

Die Ursache für den hohen Zeitaufwand, den 
das Raytracing-Verfahren in der Grundversion 
verursacht, ist die Tatsache, daß für jeden Ra¬ 
sterpunkt die Schnittpunkte des Sehstrahls mit 
allen Objekten bestimmt werden. Zwei Strate¬ 
gien zur Beschleunigung setzen genau hier an: 
ü Es wird versucht, die Teile des Programms 
zu optimieren, in denen diese Schnittpunkte be¬ 
rechnet werden. Zum einen erreicht man dies 
durch geschickte Wahl der Parametrisierung 
der Objekte (z.B. eine Kugel wirklich als Ku¬ 
gel und nicht durch eine Vielzahl Dreiecke an¬ 
zunähern). zum anderen dadurch, daß komple¬ 
xe Objekte mit einem umschließendes Volu¬ 
men umhüllt werden (im einfachsten Fall ein 
»Voxel«, ein Quader, dessen Seitenflächen zu 
den Raumachsen parallel sind), so daß sich 
Schnittpunkte relativ einfach aufspüren lassen; 
und nur wenn ein solcher Schnittpunkt des Seh¬ 


strahls mit diesem Volumen vorliegt, schneidet 
man das eigentliche Objekt. 

1 Eine zweite Möglichkeit, die Strahlenver¬ 
folgung zu optimieren: Man versucht, nur die 
Objekte zu schneiden, für die überhaupt ein 
Schnittpunkt möglich ist, die also »in der 
Nähe« des Sehstrahls liegen. 

Vergleicht man die zweite mit der ersten Va¬ 
riante, stellt man schnell fest, daß letztere Stra¬ 
tegie erfolgversprechender ist. da bei der ersten 
weiterhin für alle Objekte mindestens ein 
Schnittpunkt (und sei es der mit dem um¬ 
schließenden Volumen) gefunden werden muß. 

Es ist allerdings nicht einfach, festzustellen, 
welche Objekte in unmittelbarer Nähe des Seh¬ 
strahls liegen. Zu diesem Zweck teilt man den 
von den Objekten eingenommenen Raum in 
kleinere Einheiten auf und ordnet jeder die 
Menge an Objekten zu, deren Oberfläche ganz 
oder teilweise darin liegen. »Schickt« man 
dann den Sehstrahl durch den Raum, ermittelt 
man die Einheiten, die auf seinem Weg liegen 
und schneidet nur die Objekte, die diesen Un¬ 
tereinheiten zugeordnet sind. 

Auch hier kennt man zwei Strategien, die 
helfen, den Raum zu unterteilen. Beide haben 
Vor- und Nachteile: 

"1 Zum einen läßt sich der Raum regelmäßig 
aufteilen. Das hat den Vorteil, daß die Ver¬ 
waltung und Datenstruktur simpel zu realisie¬ 
ren sind und das Problem der Nachbarsuche 
durch direkte Adressierung zu lösen ist. Der 
Nachteil: Der Speicherbedarf ist sehr hoch (n’ 
Zellen sind zu verwalten, wenn n die Anzahl 
der Unterteilungen pro Achse ist), auch die Ko¬ 
dierung der Objekte für jede Zelle muß neu 
vorgenommen werden, was zeitaufwendig ist. 
Hinzu kommt, daß bei feiner Raumaufteilung 
sehr viele Nachbarn gefunden werden müssen. 

Devise: Teile und 
herrsche 

□ Zum anderen ist es möglich, jede Zelle re¬ 
kursiv in acht Kinderzellen (sog. Oktanten, da¬ 
her der Name »Octree«) zu unterteilen. Dabei 
wird die betreffende Zelle jeweils in der Mitte 
durch drei zu den Seitenflächen parallele Ebe¬ 
nen zerschnitten, so daß ein linker und rechter, 
ein unterer und oberer sowie ein hinterer und 
vorderer Bereich gebildet werden. Damit ent¬ 



Beispiel: Das ist Raytracing - mehrere Objd 
solche Objekte zu berechnen braucht man sl 


stehen acht Unterzellen, von links-unten-hinten 
bis rechts-oben-vorne. Das wird solange durch¬ 
geführt. bis eine maximale Tiefe erreicht oder 
aber in der zu unterteilenden Zelle nur noch ein 
oder gar kein Objekt mehr enthalten ist. Der 
Vorteil: Es erfolgt eine automatische Anpas¬ 
sung an die gegebene Szene und Teile des 
Raums, die wenige oder keine Objekte enthal¬ 
ten. werden kaum oder gar nicht unterteilt. 
Gleichzeitig verringert sich so der Speicherbe¬ 
darf und ermöglicht eine höhere Auflösung. 
Dabei enthalten nur die Zellen, die ein Blatt 
dieses Baums darstellen, eine Objektliste, alle 
anderen verweisen auf ihre Kinderzellen. 

Der Aufbau läßt eine starke Abhängigkeit 
zwischen den Zellen entstehen, da z.B. Objek¬ 
te, die in einer Zelle nicht mehr enthalten sind, 
auch nicht in den Kinderzellen Vorkommen 
können. Außerdem müssen weniger Nachbar¬ 
zellen für einen Strahlendurchlauf berechnet 
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, die aus unterschiedlichen geometrischen Einheiten zusammengesetzt sind. Uni 
eile Rechner und Algorithmen. 



1. Skizze: Unterteilung des Raums 


werden. Die Nachteile: Der Aufbau und die 
Verwaltung der Baumstruktur (jeder Knoten 
hat acht Kinderknoten) ist aufwendiger und 
schwieriger als bei einer gleichmäßigen Un¬ 
terteilung. Auch ist die Nachbarsuche wesent¬ 
lich komplizierter, vor allem dann, wenn der 
Baum nicht jedesmal von der Wurzel aus 
durchlaufen werden soll. 

In diesem Artikel stellen wir eine Technik 
vor. welche die Vorteile der vorgestellten 
Strategien kombiniert und die angesprochenen 
Nachteile reduziert. Sie werden kein komplet¬ 
tes Raytracing-Programm vorfinden, sondern 
nur die Routinen, die für dieses Verfahren nötig 
sind, mit einigen Tips, wie man sie am gün¬ 
stigsten in ein bestehendes Programm einfügt. 
Das hat vor allem den Grund, da ein einfacher 
Raytracer mit einigen wenigen Grundobjekten 
zwar sehr schnell geschrieben ist. trotzdem 
äußerst umfangreich ist. Zudem sind die dabei 


uters 


Was ist Raytracing? 


Oder: Was Sie schon immer über Raytra¬ 
cing wissen wollten 

Durch das Raytracing-Verfahren wird ver¬ 
sucht, eine möglichst fotorealistische Darstel¬ 
lung von Objekten mit Hilfe eines Computers 
zu erhalten. 

Prinzipiell müßte man dafür die Bahn der 
von den vorhandenen Lichtquellen ausge¬ 
henden Lichtstrahlen untersuchen. Allerdings 
würde dieses Verfahren ungeheuer lange 
dauern, da nur ein minimaler Teil der ausge¬ 
sendeten Lichtstrahlen je den Beobachter er¬ 
reicht. Also nutzt man geschickt die Umkehr¬ 
barkeit des Lichtwegs aus. 

Das Prinzip, nach dem ein Raytracer arbei¬ 
tet, ist, vom Beobachter aus durch jedes Pixel 
einen Sehstrahl in die Szene zu schicken und 
nach Schnittpunkten mit den Objekten zu su¬ 
chen. Hat man einen Schnittpunkt gefunden, 
bleibt zu entscheiden, welche Farbe das Ob¬ 
jekt an der betreffenden Stelle hat, ob es 
durchlässig oder verspiegelt ist. Treffen die 
beiden letzten Eigenschaften zu, wird vom 
Schnittpunkt aus je ein neuer Strahl gestartet, 
bis dieser wieder ein Objekt schneidet usw.. 
Für die Ermittlung der Farbe am Schnittpunkt 
existieren verschiedene Beleuchtungsmodel¬ 
le. Da das Verhalten von Licht an Ober¬ 
flächen sehr kompliziert ist, werden verschie¬ 
dene Vereinfachungen getroffen und einige 
Feinheiten vernachlässigt. Ein einfaches Bei¬ 
spiel für ein solches Beleuchtungsmodell ist 
das von Phong entwickelte, welches sehr gro¬ 
be Annäherungen an die Wirklichkeit macht, 
die aber für Plastik erstaunlich gut zutreffen 
(daher sehen auch die Objekte in mit diesem 
Beleuchtungsmodell berechneten Bildern alle 
mehr oder minder nach Plastik aus). 

Damit ist es allerdings noch nicht getan, denn 
die oben angeschnittenen Techniken lassen 
die Bilder nicht besonders realistisch ausse- 
hen, da sie zu perfekt wirken. Kein Objekt in 
der Wirklichkeit ist gleichmäßig durchlässig 
oder verspiegelt, ist von gleichmäßiger Farbe 
oder besitzt solch scharfe Kanten oder Ecken, 
Daher gilt es dann z.B. noch. sog. Texturen 
zu definieren, die entweder die Farbe oder 
den Normalen-Vektor vom Ort abhängig so 
ändern, daß die Oberfläche z.B. wie Marmor 
oder Wasser aussieht. Oder an Grenzflächen 
zwischen Objekten überzublenden, so daß 
scharfe Kanten vermieden werden, usw. 
Allerdings stößt man selbst bei wenigen Ob¬ 
jekten in einer Szene oft schon an die Gren¬ 
zen der Leistungsfähigkeit des zur Verfügung 
stehenden Rechners. Rechenzeiten für ein 
Bild von Stunden oder Tagen sind bei auf¬ 
wendigen Szenen keine Seltenheit. Das hier 
beschriebene Verfahren erlaubt es, fast un¬ 
abhängig von der Anzahl der Objekte Bilder in 
fast konstanter Zeit zu berechnen. 
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verwendeten Verfahren und Techniken - wie 
eingangs erwähnt - in der angegebenen Fach¬ 
literatur ausführlich erläutert. 

Zum Verständnis dieses Verfahrens ist es 
aber nötig, die grundlegenden Algorithmen der 
oben angesprochenen Strategien zur Untertei¬ 
lung des Raumes darzustellen, um sie an¬ 
schließend miteinander zu verknüpfen. 

Strahlengenerator: 
Beam me up, Scotty 

Da ist zum einen der »Strahlengenerator« 
von Müller (siehe Skizze rechts): Er verallge¬ 
meinert des Verfahren zur Generierung einer 
Geraden auf einem Rasterschirm. Vorausset¬ 
zung ist dabei eine äquidistante Unterteilung ei¬ 
nes Quaders, der die gesamte Szene enthüllt in 
»xCount x yCount x zCount« Zellen. 

Die Abfolge der Zellen, die der Strahl 
durchläuft, wird dabei inkrementeil bestimmt. 
Dabei wird ausgenutzt, daß alle die Zellen be¬ 
grenzenden Ebenen parallel liegen und die glei¬ 
chen Abstände »xLength«, »yLength« und 
»zLength« besitzen. Sei nun »Start« der An¬ 
fangspunkt des Sehstrahls in der Zelle mit den 
Indizes »(xlndex, ylndex, /.Index)« und »ray« 
der normierte Richtungsvektor. Aus den Strah¬ 
lensätzen folgt für die Abstände der Ebenen 
entlang des Richtungsvektors 
xDistance = Abs( xLength/ray.x) 
yDistance = Abs( yLength/ray.y) 
zDistance = Abs( zLength/ray.z) 

Falls eine der Komponenten von »ray« Null 
bzw. betraglich kleiner als eine definierte Zahl 
»Epsilon« ist. wird die Größe, die i.a. per Di¬ 
vision durch diese Komponente bestimmt wird, 
einfach auf eine sehr große Zahl (im Programm 
das Makro »INFIN1TY«) gesetzt und vom Al¬ 
gorithmus als unendlich behandelt. Für den Ab¬ 
stand der nächsten Ebene in X-Richtung ent¬ 
lang des Richtungsvektors (gilt genauso für die 
Y- und Z-Koordinaten) vom Startpunkt aus. er¬ 
gibt sich ebenfalls nach dem Strahlensatz.: 
xNextPlane = (min.x-start.x)/ray.x 
und 

xDirection =- 1 
falls 

ray.x < 0 
und 

xNextPlane = (Start.x-max.)/ray.x 
und andernfalls 
xDirection = 1 

wobei »min« und »max« die minimale und 
maximale Ausdehnungen der Zelle sind, in der 
sich der Startpunkt befindet. Dann ist immer 
die Ebene die nächste geschnittene, zu der der 
Abstand entlang des Richtungsvektors minimal 
ist. Ist so eine Ebene gefunden, ergeben sich die 
neuen Abstände so: 

Die beiden anderen Abstände werden um 
diesen minimalen Abstand verringert, da man 
um genau dieses Maß entlang des Richtungs- 
vektors gelaufen ist. Der verbleibende dritte 
Abstand wird auf den Abstand der Ebenen ent¬ 
lang des Richtungsvektors in dieser Richtung 
gesetzt, da der neue Ausgangspunkt sich ja auf 
einer der Ebenen befindet (Listing rechts 


oben). Nur am Anfang wird die Position der 
Zelle und des Startpunkts benutzt, alles weite¬ 
re wird inkrementell durchgeführt. 

Des weiteren wird noch ein Verfahren 
benötigt, das von einer Zelle ausgehend den 
Nachbarn in einer bestimmten Richtung findet. 
Das läßt sich zum einen durch Glassners Ver¬ 
fahren erreichen, wobei man die Schnittpunk¬ 
te der durch den Sehstrahl gebildeten Geraden 
mit den begrenzenden Ebenen berechnet, den 


am nähesten gelegenen ermittelt, daraus einen 
Punkt konstruiert, der auf jedem Fall in der 
Nachbar/.elle liegt, und dann von der Wurzel 
ausgehend die kleinste Zelle sucht, die diesen 
Punkt enthält. Der Nachteil: Es müssen 
Schnittpunkte mit den begrenzenden Ebenen 
und ein »sicherer« Punkt berechnet werden, 
außerdem ist der Baum jedesmal von der Wur¬ 
zel aus zu durchlaufen. 

Bäumchen wechsle 
dich 

Zum anderen existiert noch eine Weiterent¬ 
wicklung des Verfahrens nach Samet. Die 
Aufgabe dabei ist. zu einer gegebenen Zelle 
und einer gegebenen Richtung einen gleich 
großen oder größeren Nachbarn zu finden. Man 
steigt dabei von der Startzelle ausgehend im 
Baum auf. bis der tiefste gemeinsame Vorfah¬ 
re der Ausgangszeile und der gesuchten Nach¬ 
barzelle gefunden wurde. Dann steigt man den 
an der Schnittebene gespiegelten Pfad wieder 
ab. bis entweder die gleiche Tiefe erreicht ist 


oder die Zelle keine Kinderzellen mehr hat. Da¬ 
bei ist der tiefste gemeinsame Vorfahre in ei¬ 
ner bestimmten Richtung der. der zuerst über 
einen Sohn aus der anderen Richtung erreicht 
wird. Falls man also nach links gehen möchte, 
muß man den ersten Vorfahren finden, zu des¬ 
sen rechten Teilbäumen die Ausgangszeile 
gehört. 

Das Spiegeln des Pfads erreicht man. indem 
man immer die Richtung im Pfad herumdreht. 


in die man geht. Falls man also nach links geht, 
muß man beim Absteigen nach rechts gehen 
(aus einem linken, oberen, hinteren wird ein 
rechtes, oberes, hinteres Kind usw.). Da der 
Pfad beim Abstieg höchstens genauso lang sein 
kann wie der Pfad beim Aufstieg, erreicht man 
mit diesem Verfahren höchstens eine gleich 
große oder größere Zelle. 

Wurde eine gleich große Zelle gefunden, die 
noch Kinderzellen besitzt, existiert ein kleine¬ 
rer Nachbar, der zu Fuß gefunden werden muß. 
d.h. in Samets Verfahren Konstruktion eines 
Punkts, der auf jeden Fall in der gesuchten Zel¬ 
le liegt und dann eine Suche genauso wie in 
Glassners Verfahren, nur nicht von der Wurzel, 
sondern von dieser Stelle im Baum aus. Hier¬ 
bei ist natürlich ein Vorteil gegenüber der 
Grundversion von Glassner. daß die Nachbar¬ 
suche einer gleich großen oder größeren Zelle 
direkt erfolgt und nur, falls die gleich große 
Nachbarzelle noch Kinderzellen besitzt, muß 
nach Glassners Verfahren weiter gesucht wer¬ 
den. Allerdings ist auch hier die Berechnung 
der Schnittpunkte mit den begrenzenden Ebe¬ 
nen sowie eines sicheren Punkts nötig. 



2. Skizze: Der Strahlengenerator von Müller schematisch dargestellt 
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WHILE (xlndex,ylndex,zlndex) > (1, 1, 1) AND 

(xlndex.ylndex,zlndex) < (xCount,yCount,zCount) DO 

BEGIN 

IF (xNextPlane < yNextPlane) AND (xNextPlane < zNextPlane) THEN 

BEGIN /* Strahl schneidet als nächstes eine yz-Ebene */ 

INC( xlndex, xDirection); 

yNextPlane -= xNextPlane; 

zNextPlane -= xNextPlane; 

xNextPlane= xDistance; 

END 

ELSE 

IF (yNextPlane < zNextPlane) THEN 

BEGIN /* Strahl schneidet als nächstes eine xz-Ebene */ 

INC( ylndex, yDirection); 
xNextPlane -= yNextPlane; 
zNextPlane -= yNextPlane; 
yNextPlane= yDistance; 

END 

ELSE 

BEGIN /* Strahl schneidet als nächstes eine xy-Ebene */ 

INC( zlndex, zDirection); 
xNextPlane -= zNextPlane; 
yNextPlane -= zNextPlane; 
zNextPlane = zDistance; 

END; /* o£ if */ 

END; /* Of if •/ 

END; /* Of while */ © 1993 MiT 

»Grundlegend«: Der Algorithmus von Müller in Form eines 
Pascal-Listings. Für jeden Strahl wird geprüft, ob er das 
Objekt schneidet. 
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So lasset die Spiele 
beginnen 

Kommen wir zur Umsetzung unseres ver¬ 
besserten Octree-Algorithmus' in ein Pro¬ 
gramm. Auf den nächsten Seiten finden Sie den 
wichtigsten Teil »Octree.c«. Es handelt sich um 
das Hauptmodul. Auf den weiteren Seiten zei¬ 
gen wir Ihnen die zusätzlich erforderlichen In- 
clude- und Definitionsdateien. 

Das Ziel war es. ein Verfahren zu finden, das 
die Vorteile von Müllers Verfahren mit denen 
von Samets verbindet, das also die Bestim¬ 


mung der Richtung der Nachbarzelle inkre¬ 
menteil erlaubt und diese Zelle nur durch Auf- 
und Absteigen im Octree findet, ohne daß dafür 
ein sicherer Punkt in der Nachbar-Zelle nötig 
ist. Die entscheidene Idee hatte dabei Dipl. 
Math. Robert Endl an der Universität Marburg! 

Als Voraussetzungen für dieses Verfahren 
sind nur die Kenntnis der Tiefe der momenta¬ 
nen Zelle im Baum, die für jede Tiefe kon¬ 
stanten Größen »xDistance. »yDistance«, »zDi¬ 
stance« sowie die Abstände »xNextPlane«, 
»yNextPlane«. »zNextPlane« nötig (Skizze 
unten). Aus den Größen »xDirection«, »yDi¬ 
rection« und »zDirection« in Müllers Verfah¬ 


ren wird hier dann die Hauptrichtung des Seh¬ 
strahls (im Programm »mainDirection«), die 
angibt, ob der Sehstrahl nach links oder rechts, 
nach unten oder oben, nach hinten oder vorne 
läuft. Die Möglichkeiten gehen dann wie bei 
der Richtung der Kinder einer Zelle von links 
- unten - hinten bis rechts - oben - vorne. Falls 
im weiteren von der Richtung des Sehstrahls 
die Rede ist, ist immer diese Hauptrichtung 
bzw. eine ihrer Komponenten gemeint. 

Auf der Jagd nach 
Schnittpunkten 

Nachdem man den Sehstrahl mit den der ak¬ 
tuellen Zelle zugeordneten Objekten geschnit¬ 
ten und keinen endgültigen Schnittpunkt ge¬ 
funden hat (ein Schnittpunkt ist dann endgül¬ 
tig. falls er in der gerade bearbeiteten Zelle 
liegt: man ist in einem solchen Fall fertig, da 
keine näheren mehr gefunden werden können), 
wird die nächste zu behandelnde Zelle gesucht. 
Als erstes wird mit Hilfe des Strahlengenera¬ 
tors von Müller die Richtung des nächsten 
Nachbarn ermittelt. Dann wird in dieser Rich¬ 
tung mit Samets Verfahren eine gleich große 
oder größere Nachbar-Zelle gefunden. Dabei 
werden beim Auf- wie auch beim Absteigen 
sowohl die Größen »xDistance«, »yDistance« 
und »zDistance« als auch »xNextPlane, »y- 
NextPlane« und »zNextPlane« der größeren 
bzw. kleineren Zelle angepaßt. 

Die ersteren können einer Tabelle entnom¬ 
men werden, die am Anfang eines Laufs be- 



105 














KNOW-HOW 



/* File octree.c */ 

tinclude "typedefs.h" 
linclude "import.h" 
tinclude "mathdefs.h” 
tinclude "intersection.h" 
tinclude "voxel.h" 
tinclude "object.h' 
tinclude "export.h" 
tinclude "octree.h" 

tdefine MAXOCTREEDEPTH 6 

typedef struct tcontent /* content */ 

(struct tcontent 'next; 

OBJECT 'object; 

} CONTENT; 

typedef ßtruct toctree /* octree •/ 
(struct toctree 'parent; 

WORD direction; 

VOXEL voxel; 

CONTENT 'content; 

BOOLEAN hasChildren; 
struct toctree *child[8]; 

) OCTREE; 


Udefine BACK 

0x00 


idefine FRONT 

0x01 


idefine DOWN 

0x00 


idefine DP 

0x02 


idefine LEFT 

0x00 


idefine RIGHT 

0x04 


idefine BACKFRONT 

0x01 


idefine DOWNüP 

0x02 


idefine LEFTRIGHT 

0x04 


idefine NODIRECTION 

-1 


idefine LEFTDOWNBACK 

( LEFT1 DOWN I BACK) 


idefine LEFTDOWNFRONT 

( LEFT1 DOWN 1 FRONT) 


idefine LEFTDPBACK 

( LEFT1 DPI BACK) 


idefine LEFTÜPFRONT 

( LEFT1 DPI FRONT) 


idefine RIGHTDOWNBACK 

( RIGHT I DOWN I BACK) 


idefine RIGHTDOWNFRONT (RIGHT 1 DOWNI FRONT) 


idefine RIGHTDPBACK 

(RIGHT 1 DPI BACK) 


idefine RIGHTÜPFRONT 

(RIGHT 1 DPI FRONT) 


idefine ISBACK(x) 

(((X) & BACKFRONT) 

== BACK) 

idefine ISFRONT(x) 

(((X) i BACKFRONT) 

« FRONT) 

idefine ISDOWN(x) 

(((X) & DOWNÜP) 

== DOWN) 

idefine ISDP(x) 

(((X) i DOWNOP) 

== DP) 

idefine ISLEFT(x) 

(((X) & LEFTRIGHT) 

== LEFT) 

idefine ISRIGHT(x) 

(((X) k LEFTRIGHT) 

:: RIGHT) 


LOCAL OCTREE 'octreeRoot; 

LOCAL WORD maxOctreeDepth; 

LOCAL DLONGWORD Identification; 

LOCAL FLOATING xLength[MAXOCTREEDEPTH♦1J; 

LOCAL FLOATING yLength[HAXOCTREEDEPTH+1] ; 

LOCAL FLOATING zLength[MAXOCTREEDEPTH+11; 

LOCAL VOID HinimizeHaxiiizeObject( OBJECT 'header, 
VOXEL 'voxel) 

(OBJECT 'helpj 
help: header; 

whilel help != (OBJECT *)NÜLL) 

(if( !help->unlimited) 

(UnionVoxelf voxel, voxel, &help->voxel); 

) 

help= help->next; 

} 

} 

LOCAL CONTENT 'AllocateContent( CONTENT *next, 

OBJECT 'object) 

(CONTENT 'content; 

if( (content: Allocate( CONTENT)) != (CONTENT *)NULL) 
(content->next= next; 
content->object: object; 

) 

return( content); 

) 

LOCAL VOID FreeContentListf CONTENT 'content) 

(CONTENT 'help, 'next; 
help: content; 

whilef help != (CONTENT *)NDLL) 

( next= help->next; 

Free( help); 
help: next; 

) 

) 


LOCAL CONTENT *AllocateContentList( OBJECT 'object) 
(OBJECT 'help; 

CONTENT 'content, 'old; 
content: (CONTENT *)NULL; 
help: object; 

whilel help !: (OBJECT *)NtJLL) 

(help->identification= (LONGWORD)O; 
old: content; 

if( (content:AllocateContent(old, help)) ): 

(CONTENT *)NULL) 

(help= help->next; 

} 

eise 

(FreeContentLiat ( old); 
help= (OBJECT *)NÜLL; 

) 

) 

returnl content); 

) 

LOCAL OCTREE 'AllocateOctreel OCTREE 'parent, 

CONST WORD direction, 

CONST VOXEL 'voxel) 

(OCTREE 'octree; 

if( (octree= Allocatel OCTREE)) 1= (OCTREE *)NULL) 
(octree-»parent: parent; 
octree->direction: direction; 
octree->voxel= 'voxel; 
octree->content= (CONTENT *)NULL; 
octree->ha8Children: FALSE; 

OCtree->child[LEFTDOWNBACK]= 

OCtree->child [LEFTDOWNFRONT] = 
octree->child[LEFTUPBACK] = 
octreeochild [LEFTüPFRONT] = 
oc t re e- >child[RIGHTDOWNBACK] = 

OCtree->child[RIGHTDOWNFRONT]= 

octree->child[RIGHTöPBACK): 

octree->child[RIGHTUPFRONT]= (OCTREE *)NOLL; 

) 

return) octree); 

) 

LOCAL VOID FreeOctreel OCTREE 'octree) 

(if( octree !: (OCTREE *)NULL) 

(FreeOctreel octree->child[LEFTDOWNBACK]); 

FreeOctreel octree->child[LEFTDOWNFRONT]); 

FreeOctreel octree->child[LEFTUPBACK]) ; 

FreeOctreel octreeochild [LEFTÜPFRONT]); 

FreeOctreel octree->child[RIGHTDOWNBACK] ) ; 

FreeOctreel octree-»child[RIGHTDOWNFRONT] ); 

FreeOctreel octree->child[RIGHTÜPBACK]); 

FreeOctreel octree->child[RIGHTUPFRONT] ); 
FreeContentLiat! octree->content); 

Free( octree); 

) 

) 

LOCAL VOID DivideOctreel OCTREE 'octree, 

CONST WORD depth) 

(WORD direction; 

VECTOR mid; 

VOXEL voxel, newvoxel; 

OBJECT 'object; 

CONTENT 'content, 'help, 'old; 
if ( (depth < maxOctreeDepth) kk 
((content: octree->content) U (CONTENT *)NDLL) kk 
( content->next != (CONTENT *)NULL)) 

(voxel= octree->voxel; 
mid. x: 0.5 * (voxel. min. x+voxe 1. max. x); 
mid.y: 0.5'(voxel.min.y+voxel.max.y); 
mid.z: 0. 5*(voxel.min.z+voxel.max.z); 
mid.w: 1.0; 

for( direction = LEFTDOWNBACK; 

direction c RIGHTUPFRONT; direction**) 

{ 

newvoxel.min.x=(ISLEFT(direction) ? voxel.min.x : mid.x); 
newvoxel.min.y:(ISDOWN(direction) ? voxel.min.y : mid.y); 
newvoxel.min.z:(ISBACK(direction) ? voxel.min.z : mid.z); 
newvoxel.min.w: 1.0; 

newvoxel.max.x:(ISLEFT(direction) ? mid.x : voxel.max.x); 
newvoxel.max.y:(ISDOWN(direction) ? mid.y : voxel.max.y); 
newvoxel.max.z:(ISBACK(direction) ? mid.z : voxel.max.z); 
newvoxel.max.w: 1.0; 
if( (octree->child[direction): 

AllocateOctreel octree, direction, Snewvoxel)) !: 
(OCTREE *)NDLL) 

(content: (CONTENT '(NULL; 


help: octree->content; 
whilel help != (CONTENT *)NULL) 

(object= help->object; 

if( ('object->VoxelIntersectedByObject)( object, 
inewvoxel)) 

(old: content; 

if( (content: AllocateContentl old, object)) I* 
(CONTENT *) NULL) 

(help: helponext; 

) 

eise 

(FreeContentLiat! old); 
help= (CONTENT *) NULL; 

) 

) 

eise 

(help: help->next; 

) 

1 

octree->child[direction]->content: content; 
DivideOctreel octree->child[direction], depth+1); 

) 

) 

octree->hasChildren: TRDE; 

FreeContentLiat( octree->content) ; 
octree->content: (CONTENT *) NULL; 

) 

) 

GLOBAL BOOLEAN IntersectionWithOctree( OBJECT 'header, 
INTERSECTION 'interaection) 

(WORD depth, runDepth, oldDepth; 

WORD direction, mainDirection, currentDirection, 
currentDirectionMask; 

WORD directiona[MAXOCTREEDEPTH * 1 ] ; 

BOOLEAN intersect, found; 

BOOLEAN xRayNotZero, yRayNotZero, zRayNotZero; 

FLOATING xNextPlane, yNextPlane, zNextPlane, lambda; 
FLOATING xlnvRay, ylnvRay, zlnvRay; 

FLOATING xDistance[MAXOCTREEDEPTH+1]; 

FLOATING yDiatance[MAXOCTREEDEPTH+1]; 

FLOATING zDi8tance[MAXOCTREEDEPTH+1]; 

VECTOR atart, location; 

OBJECT 'help; 

CONTENT 'content; 

OCTREE 'octree; 

/' next ray */ 

Identification**; 
intersect: FALSE; 

/' unlimited objects */ 
help= header; 

whilel help !: (OBJECT •) NULL) 

(if( help->unlimited && 

(help->InteraectionWithObject !: 

(INTERSECTIONOBJECTPTR)NULL) ii 
('help->InteraectionWithObject)( help, intersection)) 
(location.x: intersection->start.x + 

lambda*interaection->ray.x; 
location.y: inter8ection->8tart.y t 

lambda'interaection->ray.y; 
location.z: intersection->start.z + 

lambda'intersection->ray.z; 
location.w: 1.0; 
intersect: TRUE; 

) 

help: help->next; 

) 

/' initialize •/ 
octree: octreeRoot; 
depth: 0; 

mainDirection: ((intersection->ray.x < 0.0) ? LEFT : 
RIGHT) I ((interaection->ray.y < 0.0) ? DOWN : DP) I 
(( intersect ion->ray.z < 0.0) ? BACK : FRONT) ; 
if ( PointlnVoxell iintersection->start, &octree->voxel)) 
( /• Start is in root's voxel */ 

Start: intersection->8tart; 

} 

eise 

(if( RayVoxellntersectionl ilambda, 

4intersection->start, 

&intersection->ray, Soctree->voxel)) 

{/* ray hits root's voxel */ 
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Vesalia 


Bestellannahme: 02852/9140-10 


Bestellannahme: 02852/9140-11 


Bestellannahme: 02852/9140-14 


Industriestraße 25 
46499 Hamminkeln 

Autobahn A3 - Ausfahrt 
Wesel/Bocholt 
Fax: 02852/1802 

Autorisiertes 

Z Commodore Nachnahme -Versand mit 

Post oder UPS ab 10 DM. 
A Irl ICjA Großgeräte nach Gewicht. 

SERVICE - CENTER Ausland: Vorkasse 


AMIGA-Hardware 


AMIGA 500 Plus u. 170 MB Harddisk 

949,- 

AMIGA 500 Plus /A 500 CD-ROM/ 2 CD’s 

559,- 

AMIGA 500 Plus u. 1 MB-Karte 

399,- 

AMIGA 600 

339,- 

AMIGA 600 30 MB Harddisk 

499,- 

AMIGA 1200* 

629,- 

AMIGA 1200 30 MB Harddisk* 

789,- 

AMIGA 1200 105 MB Harddisk* 

1098,- 

AMIGA 1200 170 MB Harddisk* 

1239,- 

AMIGA 1200 245 MB Harddisk* 

1299,- 

* Aktivity-Pack (DPaint, AmiWrite, Nigel Mansell) 

149,- 

AMIGA 2000 mit 2 x 3,5" LW 

649,- 

AI 942 Monitor für A1200/A 4000 

699,- 

AI 940 Monitor für AI 200/A 4000 

599,- 

AMIGA CD-32-Console inkl. 1 Spiel 

699,- 

Commodore 1084S Stereo-Monitor 

369,- 

Commodore 1085S Stereo-Monitor 

349,- 

Mitsubishi EUM1491 

1248,- 

IDEKMF-151717" 15-40 KHz 

2199,- 

IDEKM-5021 21” 15-38 KHz 

3449,- 

AMIGA-Speichererweiterungen 

WINNER-Ram - Made in Germany 

512 KB-WINNER RAM A 500 5 J. Garantie 

49,- 

1 MB WINNER-RAM A 500Plus-intern 

89,- 

1 MB WINNER-RAM A 600-intern 

99,- 

1,8 MB WINNER-RAM A 500-intern 

199,- 

68020 Turbokarte 1 MB A 500-intern 

299,- 

68030 Turbokarte 1 MB MMU, A 500-int. 

499,- 

8/2 MB WINNER-RAM-BOX A 500 

289,- 

8/2 MB RAM inkl, AT-Bus-Contr. A 2000 

289,- 

Aufrüstung um je weitere 2 MB 

159,- 

32Bit-Fast-Ram Speichererweiterunq A1200 

Coprozessor-Option bis 50 MHz, Echtzeit-Uhr 


1.0 MB 32 Bit-FastRam mit Uhr ca. 199,- 

4.0 MB 32 Bit-FastRam inkl. Coproz. 68881 ca. 499,- 

8.0 MB 32 Bit-FastRam mit Uhr ca. 999,- 

AMIGA-Laufwerke 


3.5" Promigos-Drive-extern 6 Mon. Garantie 
abschaltbar, Kunststoffgehäuse. Mit Turbo-Copy 

99,- 

3.5" WINNER-Drive-extern 1J. Garantie 

109,- 

abschaltbar, Metallgehäuse. Mit Turbo-Copy 

3.5" Laufwerk A 500-intern 
kompl. mit Aufwurftaste und Zubehör. 

99,- 

3.5" DF0 oder DF1 -Laufwerk A 2000 -intern 
komplett mit Einbaueinleitung und Zubehör. 

99,- 

5.25" Laufwerk-extern A 500/ A 2000 
abschaltbar, 40/80 Track schaltbar, Metallgehäuse 

149,- 


Nützliches Zubehör 

AS 214-Kit, 2.05 ROM, 4 Disk, 3 Handbücher 79, 
AS 216-Kit, 5 Disketten, WB 2.1 Handbücher 89, 
AS 216 Plus-Kit, WB 2.1 dtsch. Handbücher 139, 
zusätzlich mit 2.05 ROM u. A 500/2000 Umschaltplatine 
A 1200 DOS- u. ARexx-Handbücher HD-Disk 39, 

1.3 ROM mit A 600 Umschaltplatine 49, 

1.3 ROM mit A 500/2000 Umschaltplatine 49, 

2.05 ROM mit A 500/2000 Umschaltplatine 49, 

A 1200-Uhr-Modul inkl. Akku, steckbar 49, 

VGA-Adapter für Multisync an A 1200/4000 29, 

elektr. Bootselektor, DF0 - DF3 29, 

Booten von allen externen Laufwerken unter ROM 1.2 und 1.3 

WINNER-Stereo-Sound-Sampler 89, 

Bis 50 kHz, Anschluß für Mikrofon regelbar. Mit Software. 

WINNER-Midi-Plus, durchgef. Bus 69, 

Disketten-Box mit Schloß und 100 x 3.5" Disketten 99, 
WINNER-Maus Amiga 2 Jahre Garantie 39, 

in gelb, blau, pink, rot, grün, schwarz, weiß, rot-transparent 
Sunnyline TL-Mouse/2 Amiga 49, 

Sunnyline Trackball-Amiga 69, 

AMIGA Handy-Scanner 400 DPI. inkl. Software. 229, 
AMIGA Handy-Scanner, Interface durchgef. 369, 

inkl. MIGRAPH Touch-Up und OCR-Software 

autom. Mouse-Joystick Switchbox für alle Amiga s 39, 
externe Box mit Kabel, spez. für A 2000/ A 2500 

Genlock, Digitizer usw. 

ScanDoubler 399, 

Flicker-Fixer A 2000 Interlacekarte 199, 

RGB-Splitter und Grabber 195, 

2 Geräte mit allem Zubehör, zur Videobearbeitung 
Pal-Genlock inkl. Scala 500 Junior 529 

Y-C-Genlock inkl. Scala 500 Junior 739 

Sirius-Genlock inkl. Scala 500 Junior 1549 

Y-C-Colorsplitter vollautomatischer RGB-Splitter 389 

FrameStore Echtzeitdigitizer 688 

inkl. The Art Department 

VideoKonverter A 2000 - A 4000 348 

V-Lab, S-VHS, A 2000 - A 4000, neu 4.0 569 

V-Lab/par. A 500/ A 600/ A 1200 589 

PICASSO I11 MB-Grafik-Karte, sehr schnell 598 

1280x1064 Punkte, Vert. 55 bis 87 Hz., Horz. 38 bis 64 KHz 

Retina 4 MB-Grafik-Karte, große Bandbreite 879 

1280x1024 Punkte, Verl. 55-90 Hz., Horz. 15-82 KHz. 


TIPS DES MONATS 


AMIGA 500 PLUS 339,- 

AMIGA1200 u. Aktivity-Pack 749,- 

DPaint IV AGA, AmiWrite AGA, Nigel Mansell AGA 

AMIGA 2000 2.04 dtsch. 579,- 

AMIGA 4000-030 120 MB* 2299,- 

A 570 CD-ROM-LW, u. 4 CD’s 269,- 

Fred Fish PD 1 - 660, RA, Logical, Hören u, Sehen 


Harddisk-Controller A 500 - A 4000 

A 500 AT-Bus-Controller für 2,5" HD-intern 149,- 
A 500 WINNER-AT-Bus RAM-Opt., ROM-Sockel 199,- 
A 500-AT-Bus-Contr. A 508 Alfa-Power/RAM-Option 199,- 
A 2000 AT-Bus 2008 (BSC) mit 8 MB-RAM-Option 149,- 
A 500 SCSI-Contr. Oktagon, RAM-Opt. u. GigaMem 289,- 
A 2000 SCSI-Contr. Oktagon, RAM-Opt. u. GigaMem 289,- 
A 4091 SCSI-II Contr. 32 bit, io mb/s, a 4000 599,- 

Paradox SCSI-Contr. alle Amiga s, Druckerporl 199,- 
Z 3 Fastlane SCSI-II Contr. A 4000 779,- 

CDTV-A 570 SCSI-Contr. w 398,- 

Harddisk-AT-Bus o. Controller Harddisk-SCSI o. Controller 

120 MB Conner/Seagate 379,- 105 MB QuantyConner 379,- 
170 MB Conner/Seagate 429,- 120 MB QuantyConner 399,- 
210 MB Conner/Seagate 449,- 170 MB Quant./Conner 499,- 

260 MB Conner/Seagate 519,- 260 MB QuantyConner 539,- 

Installation u. Montage einer Harddisk im Vesalia Service-Center 

Harddisk A 600 /A 1200-intern 

30 MB 2.5" A 600 /A 1200 189 

66 MB 2.5" A 600/A 1200 399 

84 MB 2.5" A 600/AI 200 479 

120 MB 2.5" A 600/A 1200 669 

210 MB 2.5” A 600/A 1200 899 

IC ROM 2,05 zur Umrüstung des A 600 in A 600 HD 29 
Harddisk A 600/1200 mit Spezialkabel, Schrauben, Install-Disk 

Ersatzteile-Service 


Kick-ROM 1.3 

29,- 

Kick-ROM 2,05 

29, 

8362 Demce 

19,- 

8373 Hires Denice 

29, 

8520 2 Stk. 

20,- 

Garry 5719 

15, 

8375 (83721 MB) 

49,- 

8372 (Hires A 2 MB) 

39, 

8364 Paula 

29,- 

6571 (Keyboard) 

15, 

Netzt. A 500 4,3 A 

79,- 

Netzteil A 2000 

199, 

C 64 Netzteil 

39,- 

1541II Netzteil 

39, 

Tastatur A 500 

89,- 

Tastatur A 2000 

169, 

Tastatur A 600 

89,- 

Tastatur A 3000 

189, 

Tastatur A1200 

99,- 

Tastatur A 4000 

169, 

3,5'LWA 500-intern 

99,- 

3,5" LW A 2000-intern 

99, 

GehäuseA2000 

99,- 

Motherboard A 2000 

290, 

AS 214: ROM 2.05. Umschaltp. 4 Disk., dt. Handbücher 

99, 


Mindestbestellwert 50,- DM + Versandkosten 


HANDLERANFRAGEN ERWÜNSCHT! 


Vesalia-Shop-Duisburg Vesalia-Shop-Neuss 1H Vesalia-Shou-Salzwedel 


Dr. Wilhelm Roelen Str.386 
Tel.: 0203/495797 


Meererhof 17 
Tel.: 02131/275751 


Altperverstraße 69 
Tel.:03901/24130 


Nicht alle Artikel sind zu Versandpreisen in den Shops erhältllich 


7 Jahre VESALIA * WINNER-Produkte=Made in Germany * 7 Jahre WINNER 
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lambda += EPSILON; 

Start.x= intersection->start.x + 

laitibda'intersection->ray. x; 

Start.y= intersection->start,y + 

lambda*intersection->ray.y; 

Start.z= intersection->start.z + 

lambda*intersection->ray.z; 

Start.w= 1.0; 

) 

eise 

(/* ray miss' root's voxel */ 
return( intersect); 

)) 

/* find the Start voxel */ 
while( octree->hasChildren) 

(currentDirection= NODIRECTION; 
direction= LEFTDOWNBACK; 
do 

{if( PointInVoxel( SStart, 

toctree->child(direction]->voxel)) 
(currentDirection= direction; 

) 

direction++; 

I 

while( (currentDirection = NODIRECTION) SS 
(direction <= RIGHTUPFRONT)); 
octree= octree->child[currentDirection] ; 
depth+t; 

) 

/* precalculating */ 

if( xRayNotZero* (Abs( intersection->ray.x) > EPSILON)) 
(xInvRay= 1.0/intersection->ray.x; 

) 

if( yRayNotZero= (Abs( intersection->ray.y) > EPSILON)) 
(yInvRay= 1.0/intersection->ray.y; 

) 

if( zRayNotZero= (Abs( intersection->ray.z) > EPSILON)) 
f zInvRay= 1.0/intersection->ray.z; 

) 

for( runDepth= 0; runDepth <= maxOctreeDepth; 
runDepth++) 

(xDistance[runDepth]= (xRayNotZero ? 

Abs( xLength[runDepth]*xInvRay) : INFINITY); 
yDistance[runDepth]= (yRayNotZero ? 

Abs( yLength[runDepth]*yInvRay) : INFINITY); 
zDistance[runDepth]= (zRayNotZero ? 

Abs( zLength[runDepth]*zInvRay) : INFINITY); 

I 

if( intersection->ray.x < 0.0) 

|xNextPlane= (xRayNotZero ? 
(octree->voxel.min.x-start.x)*xInvRay : INFINITY); 

} 

eise 

(xNextPlane* (xRayNotZero ? 
(octree->voxel.max.x-start.x)*xInvRay : INFINITY); 

) 

if( intersection->ray.y < 0.0) 

(yNextPlane* (yRayNotZero ? 
(octree->voxel.min.y-start.y)*yInvRay : INFINITY); 

I 

eise 

(yNextPlane* (yRayNotZero ? 
(octree->voxel.max.y-start.y)*yInvRay : INFINITY); 

) 

if( intersection->ray.z < 0.0) 

(zNextPlane* (zRayNotZero ? 
(octree->voxel.min.z-start.z)*zInvRay : INFINITY); 

) 

eise 

(zNextPlane= (zRayNotZero ? 

(octree->voxel.max.z-start.z)»zlnvRay : INFINITY); 

) 

while( octree != (OCTREE *)NULL) 

(/* find intersections */ 
content= octree->content; 
while( content != (CONTENT *)NULL) 

(help* content-X>bject; 

if( (help->identification != identification) SS 
(help->IntersectionWithObject != 

(INTERSECTIONOBJECTPTR)NULL)) 

(if( (*help->IntersectionWithObject)( help, 
intersection)) 

(location.x= intersection->start.x + 

lambda*intersection->ray. x; 


location.y= intersection->start.y + 

lambda*intersection->ray.y; 
location.z= intersection->start.z + 

lambda*intersection->ray.z; 
location.w= 1.0; 
intersect= TROE; 

) 

help->identification= identification; 

) 

content= content-Xiext; 

1 

if( intersect SS PointInVoxel( Slocation, 

Soctree->voxel)) 

[/‘ found the nearest intersection ‘/ 
octree= (OCTREE *)NULL; 

I 

eise 

(/* Strahlengenerator */ 
if( (xNextPlane < yNextPlane) SS 
(xNextPlane < zNextPlane)) 

[currentDirectionMask* LEFTRIGHT; 
yNextPlane -= xNextPlane; 
zNextPlane -= xNextPlane; 
xNextPlane* xDistance[depth]; 

] 

eise 

(if( yNextPlane < zNextPlane) 

(currentDirectionMask* DOWNUP; 
xNextPlane -= yNextPlane; 
zNextPlane -= yNextPlane; 
yNextPlane* yDistance[depth]; 

) 

eise 

(currentDirectionMask= BACKFRONT; 
xNextPlane -= zNextPlane; 
yNextPlane -* zNextPlane; 
zNextPlane= zDistance[depth]; 

)) 

oldDepth= depth; /* go up */ 
do 

(if( (currentDirectionMask — LEFTRIGHT) || 

((octree->direction S LEFTRIGHT) != 

(mainDirection S LEFTRIGHT))) 

(xNextPlane += xDistance[depth]; 

) 

if( (currentDirectionMask = DOWNUP) || 

((octree->direction S DOWNUP) != 

(mainDirection S DOWNUP))) 

(yNextPlane += yDistance[depth]; 

) 

if( (currentDirectionMask = BACKFRONT) || 

((octree->direction S BACKFRONT) != 

(mainDirection S BACKFRONT))) 

[zNextPlane += zDistance[depth]; 

) 

found= ((octree->direction != NODIRECTION) ? 

((octree->direction S currentDirectionMask) != 
(mainDirection S currentDirectionMask)) : FALSE); 
directions[depth--]= octree-Xiirection; 
octree= octree->parent; 

) 

while( (octree != (OCTREE *)NULL) SS 'found); 
if( found) 

(/* go down */ 

while( octree->hasChildren SS (depth < oldDepth)) 
[depth++; 
octree=octree-> 

child[directions[depth]'currentDirectionMask]; 
if( (currentDirectionMask = LEFTRIGHT) || 

((octree->direction S LEFTRIGHT) != 

(mainDirection S LEFTRIGHT))) 

(xNextPlane -= xDistance[depth]; 

) 

if( (currentDirectionMask = DOWNUP) || 

((octree->direction S DOWNUP) != 

(mainDirection S DOWNUP))) 

(yNextPlane -= yDistance[depth] ; 

1 

if( (currentDirectionMask = BACKFRONT) || 
((octree-Xiirection S BACKFRONT) != 

(mainDirection S BACKFRONT))) 

(zNextPlane -= zDistance[depth]; 

)) 

if( depth = oldDepth) 


(/* smaller neighbour ? */ 
while( octree->hasChildren) 

{depth++; 
direction= 0; 

if( (currentDirectionMask = LEFTRIGHT) || 
(xNextPlane > xDistance[depth])) 

(direction |= 

((mainDirection S LEFTRIGHT) * LEFTRIGHT); 

) 

eise 

(direction |= (mainDirection S LEFTRIGHT); 

] 

if( (currentDirectionMask = DOWNUP) || 

(yNextPlane > yDistance[depth])) 

(direction |= 

((mainDirection S DOWNUP) * DOWNUP); 

) 

eise 

(direction |= (mainDirection S DOWNUP); 

) 

if( (currentDirectionMask = BACKFRONT) || 
(zNextPlane > zDistance[depth])) 

[direction |= 

((mainDirection S BACKFRONT) A BACKFRONT); 

) 

eise 

(direction |= (mainDirection S BACKFRONT); 

) 

octree= octree->child[direction]; 
if( (currentDirectionMask = LEFTRIGHT) 11 
((octree-Xiirection S LEFTRIGHT) != 

(mainDirection S LEFTRIGHT))) 

(xNextPlane -= xDistance[depth]; 

I 

if( (currentDirectionMask = DOWNUP) || 
((octree-Xiirection S DOWNUP) != 

(mainDirection S DOWNUP))) 

(yNextPlane -= yDistance[depth]; 

) 

if( (currentDirectionMask = BACKFRONT) || 
((octree-Xiirection S BACKFRONT) != 

(mainDirection S BACKFRONT))) 

(zNextPlane -= zDistance[depth]; 

)))))) 

return( intersect); 

) 

GLOBAL BOOLEAN InitOctree( OBJECT 'header, CONST WORD 
maxDepth) 

(WORD depth; 

VOXEL voxel; 

maxOctreeDepth= MIN( maxDepth, MAXOCTREEDEPTH); 
voxel.min= maxVector; 
voxel.max= minVector; 

MinunizeMaximizeObject( header, Svoxel); 
if( (octreeRoot= AllocateOctree) (OCTREE *)NULL, 
NODIRECTION, Svoxel)) != 

(OCTREE *)NULL) 

[octreeRoot->content= AllocateContentList( header); 
DivideOctree( octreeRoot, 0); 

/* precalculating ‘/ 

xLength[0]= voxel.max,x-voxel. min, x; 

yLength[0]= voxel.max.y-voxel.min,y; 

zLength[0]= voxel.max.z-voxel.min.z; 

for( depth= 1; depth <= maxOctreeDepth; depth+t) 

I 

xLength[depth]= 0.5*xLength[depth-1]; 
yLength[depth]= 0.5‘yLength[depth-1]; 
zLength[depth]= 0.5*zLength[depth-1]; 

I 

identification= (LONGWORD)0; 

1 

return( TRUE); 

) 

GLOBAL BOOLEAN TermOctreeQ 
[FreeOctree( octreeRoot); 
return( TRUE); 

) ; © 1993 MST 

»octree.c«: Der Octree-AIgorithmus, der 
erste Schritt /um Raytracer, die nöti¬ 
gen Includes etc. finden Sie auf den fol¬ 
genden Seiten - alle Listings auch auf 
der PD-Diskette /um Heft (>►♦ Seite. 114) 
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rechnet werden kann, da sie für alle Tiefen im 
Baum jeweils konstant sind. Die letzteren än¬ 
dern sich »nur« additiv bzw. subtraktiv, es sind 
keine Multiplikationen bzw. Divisionen nötig. 
Dabei wird geschickt die Position der Zelle in 
der übergeordneten Zelle ausgenutzt. Denn 
liegt die Kinder-Zelle in derselben Richtung in 
der übergeordneten Zelle, in der auch der Seh¬ 
strahl läuft und befindet sich der nächste 
Nachbar in einer der beiden anderen Richtun¬ 
gen. z.B. beide nach oben und Wechsel nach 
rechts, so muß keine Anpassung vorgenommen 
werden (in der Skizze Beispiel A). da der Ab¬ 
stand zur jeweiligen nächsten Ebene (in diesem 
Fall d) sich nicht verändert hat. 

Strahlenverfolgung 
von Kind zu Kind 

Liegt die Kinder-Zelle dagegen in der ent¬ 
gegengesetzten Richtung oder wird die Rich¬ 
tung bearbeitet, in der die Zelle gewechselt 
wird. z.B. ist die Kinder-Zelle ein unteres Kind, 
der Sehstrahl läuft aber nach oben oder aber es 
wird nach rechts gewechselt und der Abstand 
nach rechts wird angepaßt (in der Skizze je¬ 
weils Beispiel B), muß der Abstand zu der be¬ 
treffenden nächsten Ebene (in diesem Fall d 
bzw. c) um den Abstand der Ebenen unterein¬ 
ander (von e zu d bzw. von b zu c) erhöht wer¬ 
den, da dann ja gewissermaßen noch eine volle 
Zelle mit durchlaufen werden muß. Beim Ab¬ 
steigen läuft der Vorgang genauso ab, nur daß 
jetzt die Größen nicht durch Addition ver¬ 
größert, sondern durch Subtraktion verkleinert 
werden. Wurde eine gleich große, ohne Kinder- 
Zelle, bzw. eine größere Zelle gefunden, kann 
direkt weitergemacht werden, da alle Größen 
automatisch beim Auf- und Abstieg an die 
Größe der neuen Zelle angepaßt wurden. 

Wurde eine gleich große mit Kindcr-Zellen 
gefunden, wird ohne Konstruktion eines Punkts 
direkt aus »xDistance«, »yDistance« und »zDi- 
stance« sowie »xNextPlane«, »yNextPlane« 
und »zNextPlane« die passende Kinder-Zelle 
bestimmt und dabei wie oben diese Größen 
wiederangepaßt. Die jeweils passende Kinder- 
Zelle wird dabei folgendermaßen ermittelt: 

Von den drei möglichen Entscheidungen be¬ 
züglich der Richtung (links oder rechts, unten 
oder oben, hinten oder vorne) ist eine von vor- 
neherein festgelegt durch die Richtung, in der 
gewechselt wird. Denn findet der Wechsel nach 
rechts statt, kommen natürlich nur linke Kin¬ 
der in Frage, da die rechten keine Berührungs¬ 
fläche mit der Ausgangs-Zelle haben. Bei den 
beiden anderen wird an Hand der Abstände zur 
nächsten Ebene in dieser Richtung entschieden; 
ist der Abstand vom Durchtrittspunkt kleiner 
oder gleich dem Abstand der Ebenen in der 
nächsten Tiefe (in der Skizze Beispiel A mit 
behandelter Richtung unten/oben, Abstand 
vom Punkt A zur Ebene d kleiner als der Ab¬ 
stand von e zu d), so muß die Zelle in der Rich¬ 
tung gewählt werden, in der auch der Sehstrahl 
verläuft, andernfalls (in der Skizze Beispiel B 
mit behandelter Richtung unten/oben, der Ab¬ 
stand vom Punkt B zur Ebene d ist größer als 


/* File mathdefs.h */ 

»define EPSILON ((FLOATING)1E-6) /‘ epsilon */ 

»define INFINITY ((FLOATING)1E99) /• infinity */ 

»define MIN(x,y) (((x)<(y))?(x): (y)) 

»define MAX(x,y) (((x)>(y))?(x):(y)) 
typedef struct tvector /* vector */ 

{FLOATING x, y, z, w; ) VECTOR; 

GLOBAL VECTOR minVector; 

GLOBAL VECTOR maxVector; 

GLOBAL FLOATING Abs( CONST FLOATING); 

GLOBAL VOID MinimizeVector( VECTOR *, 

CONST VECTOR *, CONST VECTOR *); 

GLOBAL VOID MaximizeVector( VECTOR *, 

CONST VECTOR *, CONST VECTOR '); © 1993 MST 

»mathdefs.h«: Include-Datei mit 
mathematischen Funktionen 


/* File octree.h */ 

GLOBAL BOOLEAN IntersectionHithOctreef OBJECT *, 
INTERSECTION *); 

GLOBAL BOOLEAN InitOctreef OBJECT *, CONST WORD); 
GLOBAL BOOLEAN TermOctreeO; © 1993 MST 

»octree.h«: Die Include-Datei /um 
Octree- Algorithmus 


der Abstand von e zu d) die andere. Das wird 
durchgeführt, bis eine Zelle ohne Kinder ge¬ 
funden wird. Dann kann auch hier der nächste 
Nachbar direkt mit dem Verfahren nach Mül¬ 
ler gesucht werden, da sämtliche Größen auto¬ 
matisch beim Absteigen angepaßt wurden. 

Die Sache mit den 
Voxels 

Man kann allerdings mit diesem Verfahren 
nur direkt beginnen, falls der Startpunkt des 
Sehstrahls in dem die Objekte umschließenden 
Voxel liegt. Andernfalls muß der nächstgele¬ 
gene Schnittpunkt des Sehstrahls mit diesem 
Voxel gefunden und von dort dann mit dem Al¬ 
gorithmus begonnen werden. 


/* File intersection.h */ 

typedef struct tintersection /* intersection */ 
{VECTOR Start, ray; /* Start and ray */ 

FLOATING lambda; /* start+lambda*ray */ 

/* some additional Information */ 

) INTERSECTION; © 1993 MST 

»intersection.h«: Für die Berechnung 
der Schnittpunkte 


/* File voxel.h */ 

typedef struct tvoxel /* voxel */ 

{VECTOR min, max; 

) VOXEL; 

GLOBAL VOID MinimizeMaximizeVoxel( VOXEL *, 

CONST VECTOR *); 

GLOBAL VOID UnionVoxel( VOXEL *, CONST VOXEL *, 

CONST VOXEL ‘); 

GLOBAL BOOLEAN PointInVoxel( CONST VECTOR *, 

CONST VOXEL *); 

GLOBAL BOOLEAN RayVoxellntersection{ FLOATING *, 

CONST VECTOR *, CONST VECTOR *, CONST VOXEL *); 

© 1993 MST 

»voxel.h«: Behandlung von Voxel, 
d.h vereinfachten Objekten 


/* File typedefs.h */ 

»include <math.h> 

/* Define for memory use */ 
extern void *malloc( unsigned int); 
extern void free( void *); 

/* Other definitions */ 

»define CONST const /* constant */ 
»define STATIC static /* static */ 


typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

»define 

»define 

typedef 

»define 

»define 

»define 

»define 


void VOID; /* void *1 

char CHAR; /* for characters only */ 

signed char BYTE; /* signed 8 bit */ 
unsigned char UBYTE; /* unsigned 8 bit *1 
short WORD; /* signed 16 bit */ 

unsigned short DWORD; /* unsigned 16 bit */ 
long LONGWORD; /* signed 32 bit */ 
unsigned long ÜLONGWORD; /‘unsigned 32 bit*/ 


/* 


double FLOATING; 
short BOOLEAN; 

FALSE ((BOOLEAN)0) 

TRÜE (!FALSE) 
unsigned int SIZE; 

NULLSIZE ((SIZE)OL) 

Allocate(t) ((t *)malloc(sizeof(t))) 
AllocateArray(t,c) ((t *)malloc((SIZE) 

(c)»sizeof(t))) 

Free(p) free((VOID *)p) © 1993 MST 


floating point */ 
boolean */ 
false */ 
true */ 
size */ 
no size */ 


»typedefs.h«: Hier definieren wir 
wichtige Datentypen 


Bevor man das Verfahren auf die Sehstrah¬ 
len losläßt, ist der betreffende Baum zu erzeu¬ 
gen. Das läßt sich einfach durch Rekursion lö¬ 
sen. Zuerst wird eine Zelle erzeugt, welche ge¬ 
rade so groß ist, daß sie alle Objekte umfaßt. 
Dann wird solange geteilt, bis eine maximale 
Tiefe erreicht ist oder aber gar kein oder nur 
noch ein Objekt dieser zu bearbeitenden Zelle 
zugeordnet sind. Beim Teilen werden acht Kin- 
der-Zellen erzeugt und die Objekte dieser Zel¬ 
le gegen die Kinder-Zellen geschnitten. 

Bitte lesen Sie weiter aut Seite 112 
Seite 111 Listing (Voxel.c). 


/* File object.h */ 
»define 0BJECT2D 1 

»define 0BJECT3D 10 

»define PLAIN 1 

»define TRIANGLE 2 

»define RECTANGLE 3 

«define DISC 4 

»define POLYGON 5 

«define SPHERE 10 

»define ELLIPSOID 20 

»define CUBOID 30 
»define QUADRIC 40 
»define TOROS 50 


/* types */ 

/* subtypes */ 


typedef struct tobject 
(struct tobject *next; 
WORD type, subtype; 
VOID *description; 
VOXEL voxel; 

BOOLEAN unlimited; 


object */ 
next object */ 
type */ 

description */ 
surrounding voxel */ 
object unlimited ? */ 


BOOLEAN (*VoxelIntersectedByObject) 

( CONST struct tobject *, CONST VOXEL *); 
BOOLEAN (*IntersectionWithObject) 

( struct tobject *, INTERSECTION *); 

/* some additional Information */ 

ÜLONGWORD identification; /* identification */ 


) OBJECT; 

typedef BOOLEAN (*VOXELINTERSECTEDPTR) 

( CONST OBJECT *, CONST VOXEL *); 
typedef BOOLEAN (‘INTERSECTIONOBJECTPTR) 

( OBJECT *, INTERSECTION *); © 1993 MST 


»object.h«: Definition der einzelnen 
Objekte (14) 
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SPASS AM PROGRAMMIEREN 



/* File voxel.c */ 
tinclude "typedefs.h" 

»inelüde "import.h" 

»include "mathdefs.h" 

»include "export.h" 

»include "voxel.h" 

GLOBAL VOID MinimizeMaximizeVoxel( VOXEL *voxel, CONST VECTOR »vector) 
(MinimizeVector( Svoxel->min, Svoxel->min, vector); 

MaximizeVector( ivoxel->max, Svoxel->max, vector); 

} 

GLOBAL VOID ünionVoxel( VOXEL 'result, CONST VOXEL »voxell, 

CONST VOXEL *voxel2) 

(MinimizeVector( Sresult->min, Svoxell->min, Svoxel2->min); 
MaximizeVector( iresult->max, &voxell->max, &voxel2->max); 

) 

GLOBAL BOOLEAN PointlnVoxel( CONST VECTOR »point, CONST VOXEL »voxel) 
(returnf ((voxel->min.x <= point->x) ss (point->x <= voxel->max.x)) SS 
((voxel->min.y <= point->y) SS (point->y <= voxel->max.y)) SS 
((voxel->min.z <= point->z) SS (point->z <= voxel->max,z))); 

) 

GLOBAL BOOLEAN RayVoxellntersection( FLOATING »lambda, 

CONST VECTOR »Start, 

CONST VECTOR *ray, CONST VOXEL *voxel) 

(FLOATING nearest, farest, lambdal, lambda2, help; 
nearest= -INFINITY; 
farest= INFINITY; 
if( Abs ( ray->x) > EPSILON) 

(lambdal= (voxel->min.x-start->x)/ray->x; 
lambda2= (voxel->max.x-start->x)/ray->x; 
if( lambdal > lambda2) 

(help= lambdal; 
lambdal= lambda2; 
lambda2= help; ) 

if( lambdal > nearest) fnearest= lambdal; ) 
if( lambda2 < farest) (farest= lambda2; ) 
if( (nearest > farest) || (farest < 0.0)) 

(return( FALSE); 

}} 

eise 

(if( (start->x < voxel->min.x) || (start->x > voxel->max.x)) 

(returnl FALSE); 

)) 

if( Abs( ray->y) > EPSILON) 

(lambdal= (voxel->min,y-start->y)/ray->y; 
lambda2= (voxel->max.y-start->y)/ray->y ; 
if( lambdal > lambda2) 

(help= lambdal; 
lambdal= lambda2; 
lambda2= help; 

) 

if( lambdal > nearest) (nearest= lambdal; ) 
if( lambda2 < farest) (farest= lambda2; ) 

if( (nearest > farest) || (farest < 0.0)) 

(return( FALSE); 

}} 

eise 

(if( (start->y < voxel->min.y) (| 

(start->y > voxel->max.y)) 

(return( FALSE); 

n 

if( Abs ( ray->z) > EPSILON) 

(lambdal= (voxel->min.z-start->z)/ray->z; 
lambda2= (voxel->max.z-start->z)/ray->z; 
if( lambdal > lambda2) 

(help= lambdal; 
lambdal= lambda2; 
lambda2= help; 

} 

if( lambdal > nearest) (nearest= lambdal; ) 
if( lambda2 < farest) (farest= lambda2; ) 
if( (nearest > farest) |j (farest < 0.0)) 

(returnf FALSE); 

)) 

eise 

(if( (start->z < voxel->min.z) || 

(start->z > voxel->max.z)) 

(returnf FALSE); 

)) 

*lambda= nearest; 
return( TROE); 

) ©1993 M4T 

»voxel.c«: Wichtig für das Octree-Verfahren: Die Imple¬ 
mentation der Routinen zur Behandlung der sog. Voxel 
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/* File mathdefs.c */ 
ttinclude "typedefs.h" 

Hinclude "import.h’ 
finclude "export.h" 
iinclude "mathdefs.h" 

GLOBAL VECTOR minVector = 

{ -INFINITY, -INFINITY, -INFINITY, 1.0}} 

GLOBAL VECTOR maxVector = 

{ INFINITY, INFINITY, INFINITY, 1.0}; 

GLOBAL FLOATING Abs( CONST FLOATING number) 

(return( (number < 0.0) ? -number : number); 

) 

GLOBAL VOID MinimizeVectorl VECTOR *result, 

CONST VECTOR »vectorl, 
CONST VECTOR *vector2) 
{re8ult->x= MINI vectorl->x, vector2->x); 
result->y= MINI vectorl->y, vector2->y); 
result->z= MINI vectorl->z, vector2->z); 
result->w= 1.0; 

) 

GLOBAL VOID MaximizeVector( VECTOR 'result, 

CONST VECTOR "vectorl, 
CONST VECTOR *vector2) 
(result->x= MAXI vectorl->x, vector2->x); 
result->y= MAXI vectorl->y, vector2->y); 
result->z= MAXI vectorl->z, vector2->z); 
reeult->w= 1.0; 

) © 1993 M&T 

»mathdefs.c«: Implementation der 
mathematischen Funktionen 


Ist die Schnittmenge nicht leer, d.h. besitzt 
die Oberfläche des Objekts Punkte in dieser 
Zelle, wird dieses Objekt dieser neuen Zelle zu¬ 
geordnet. Sind alle Objekt einer Zelle abgear¬ 
beitet, so kann mit den acht erzeugten Kinder- 
Zellen genauso verfahren werden. 

Verbesserungen sind 
noch drin 

Allerdings läßt sich dieses Verfahren auch 
noch verbessern. So tauchen ja viele Objekte 
mehrere Male in den vom Strahl durchlaufenen 
Zellen auf. Normalerweise würde jedesmal 
wieder erfolglos ein Schnittpunkt berechnet 
werden (denn wäre er erfolgreich, wäre er 
schon bei der Bearbeitung der Zellen weiter 
vorne gefunden worden). Das ist unnötig. Um 
das zu vermeiden, erhält die Objekt-Struktur 
noch eine Variable »identification«, die bei In¬ 
itialisierung des Octree-Verfahrens auf Null ge¬ 
setzt wird. Bei der Berechnung wird dann ei¬ 
ne globale Variable ebenfalls mit Namen 
»identification« bei jedem Aufruf der Prozedur, 
die die Schnittpunkte berechnet, um Eins er¬ 
höht. Wenn ein Objekt geschnitten wurde, wird 
seiner »identification« als Markierung dafür 
der Wert der aktuelle globalen »identification« 
zugewiesen. Wenn das Objekt bei demselben 
Strahl nochmals in der Liste einer Zelle auf¬ 
tauchen sollte, wird es mit dieser »identificati¬ 
on« bemerkt (mit der globalen identisch) und 
das Objekt nicht nochmals geschnitten. 

Des weiteren machen natürlich Ebenen und 
andere unbegrenzte Objekte einige Probleme. 
Da ihre Ausdehnung nicht begrenzt ist, läßt 
sich natürlich auch kein umschließendes Voxel 
finden. Bei dem vorgestellten Verfahren wur¬ 
de dieses Problem folgendermaßen gelöst: 
diese Objekte werden bei der Ermittlung der 
die Szene umgebenden Zelle nicht beachtet und 


/* File import.h */ 

(Idefine IMPORT /* now importing •/ 

idefine GLOBAL extern © 1993 M&T 

»import.h«: Die Datei ist fürs Impor¬ 
tieren erforderlich 


/* File export.h */ 

tifdef IMPORT 
tundef IMPORT 
tundef GLOBAL 
tendif 

idefine EXPORT /♦ now exporting */ 

idefine GLOBAL 

idefine LOCAL static © 1993 M&T 

»export.h«: Fürs Exportieren 
erforderliche Include-Datei 


die dem Objekt zugeordnete Prozedur, die be¬ 
stimmt, ob dieses Objekt eine gegebenen Zel¬ 
le schneidet, liefert immer den Wert Falsch, so 
daß diese Objekte in keiner der Zellen enthal¬ 
ten sind. Beim Aufruf der Routine »Intersec- 
tionWithOctree«, die die Schnittpunkte mit den 
Objekten in dem Octree finden soll, werden die 
unbegrenzten Objekte dann getrennt »vor« dem 
eigentlichen Algorithmus geschnitten. 

Letzteres hat den Grund, da für Objekte wie 
Ebenen usw. ein Schnittpunkt leicht und 
schnell gefunden werden kann und somit eine 
gewisse Sortierung der anderen Objekte vor¬ 
genommen wird (nämlich »vor« und »nach« 
dem nächsten unbegrenzten Objekt). Falls der 
Sehstrahl den die Szene umgebenden Voxel 
verfehlt, kann natürlich einfach zurückge¬ 
sprungen werden, da dann kein Schnittpunkt 
mit den Objekten in diesem Voxel vorliegen 
kann. 

Diese Behandlung der unbegrenzten Objek¬ 
te mag etwas umständlich erscheinen. Doch ist 
es für solche Objekte meist gar nicht so einfach 
zu entscheiden, ob ihre Oberfläche Punkte in 
einer bestimmen Zelle hat, aber immer mit ei¬ 
nigem (zeitlichem) Aufwand verbunden, so daß 
man abwägen muß zwischen den Vor- und 
Nachteilen, die eine exaktere Behandlung mit 
sich bringt. 

Mit unserem Verfahren ist es möglich, Sze¬ 
nen fast unabhängig von der Anzahl der dar¬ 
gestellten Objekte mit fast konstanter Zeit zu 
berechnen, da sich die Anzahl der pro Sehstrahl 
geschnittenen Objekte trotz zunehmender Ge¬ 
samtanzahl kaum verändert, nur durch das Ver¬ 
fahren selber entsteht ein geringer Overhead. 

Natürlich sind die Prozeduren, wie sie hier 
vorgestellt werden, noch nicht für sich ge¬ 
nommen lauffähig. Es müssen für jedes Grund¬ 
objekt eine Reihe von Funktionen definiert 
werden, die die Octree-Routine aufruft. So wird 
mit »VoxellntersectedByObject« beim Objekt 
erfragt, ob eine nicht-leere Schnittmenge mit 
der übergebenen Zelle existiert. Des weiteren 
muß eine Funktion »IntersectionWithObject« 
für jedes Grundobjekt definiert sein, die einen 
Schnittpunkt zwischen dem Sehstrahl und sich 
selbst ermittelt. Dabei entscheiden die Objek¬ 
te selber, ob ihr Schnittpunkt vor dem bisher 
nächsten liegt und ersetzen ihn in diesem Fall. 


Von den anderen Teilen wie z.B. »math¬ 
defs.c« sind nur die Teile abgedruckt, die di¬ 
rekt von dem Algorithmus verwendet werden. 
Für einen funktionierenden Raytracer werden 
natürlich noch Dinge wie Skalarprodukt und 
Kreuzprodukt, Transformationen usw. benötigt. 

Der Weg zum 
Raytracer 

Dabei ist daraufzu achten, daß hier sog. ho¬ 
mogene Koordinaten verwendet werden, die 
neben »x«, »y« und »z« noch eine Komponente 
»w« beinhalten. Hat »w« den Wert Null, han¬ 
delt es sich bei dem Vektor um einen Rich¬ 
tungsvektor. hat es den Wert Eins, hat man es 
mit einen Ortsvektor zu tun. Die umständlich 
anmutende Technik hat den Vorteil, daß »alle« 
Transformationen (Translation, Rotation, Ska¬ 
lierung) durch 4x4-Matrizen und eine Hinter¬ 
einanderausführung durch eine Matrizen-Mul- 
tiplikation beschrieben werden können (nähe¬ 
re Informationen siehe auch hier unter 11)). 

Des weiteren handelt es sich bei den ver¬ 
schiedenen Typen wie »OBJECT« usw. nur um 
reduzierte Hüllen, die noch mit Leben gefüllt 
werden müssen. Dabei sollte das hier vorge¬ 
stellte nur als Vorschlag aufgefaßt werden, der 
natürlich den Algorithmus als solchen nicht 
berührt und genauso gut auch anders gelöst 
werden kann. Ansonsten muß im Programm 
vor der eigentlichen Berechnung die Initiali¬ 
sierung einmal aufgerufen und danach die Rou¬ 
tine, die normalerweise die Schnittpunkte be¬ 
rechnet. durch die vorgestellte ersetzt werden. 

Wer schreibt ein 
Programm? 

Zum Ausprobieren sollten schon einige Dut¬ 
zend Objekte in der Szene sein, da sonst der 
durch den Algorithmus verursachte Overhead 
den Zeitgewinn wieder aufhebt. Die günstigste 
maximale Tiefe, die nicht nur von der Anzahl 
der Objekte, sondern auch von deren Anord¬ 
nung abhängt, läßt sich näherungsweise durch 
»Log(n)« bis »Log(n)+l« abschätzen, wobei 
»n« die Anzahl der Objekte in der Szene und 
»Log« der Logarithmus zur Basis 8 ist. Als Be¬ 
schleunigungsfaktor dürfen Sie im günstigsten 
Fall bei 64 Objekten ungefähr einen Faktor von 
5, bei 5 12 Objekten ungefähr von 30 erwarten. 

Sicher ist es ein schönes Stück Arbeit, bis Sie 
einen richtiges Raytracing-Programm fertig ha¬ 
ben. Aber es kann sich lohnen: Wenn Sie ein 
Programm haben, schicken Sie es an die Re¬ 
daktion. Besonders gute Programme werden 
wir im nächsten Sonderheft - gegen Honorar 
natürlich - beschreiben und auf der PD-Dis- 
kette zum Heft veröffentlichen. ■ 

Literatur: 

111 Foley: van Dam; Feiner; Hughes: Compuier Graphics. Principlcs 
and Practice; Addison-Weslcy 1990 

|2| Glassner. Andrew S. (Hrsg.); An Introduction io Raylracing; 
Aeademic Press 1989 

|3) Watl. Alan; Wall. Mark: Advanced Animalion and Rendering 
Techniques; Adisson-Wesley 1992 

[4] Endl. Robert; Raylracing miuels adapuver Octree-Nachbarsuche; 
Informations sc hrifl der Hessischen Hochschulen zur CeBIT 1992 


112 


Faszination Programmieren Nr.2 






WETTBEWERB 


Permutatioinen und Anagramme 


Aus Müll wird Geld 



»Computer-Koffer«: Preis für den besten Tüftler: ein Koffer im Computer-Design: 
innen Leder, außen Computerplatinen, gestiftet von v&r design, products GmbH 


In guter alter AMIGA-Knobeltradition 
wollen wir Sie auch im Sonderheft 
»Faszination Programmieren« bis zur 
nächsten Ausgabe mit einer neuen 
Aufgabe beschäftigt wissen, wobei es 
einen tollen Preis zu gewinnen gibt. 

von G. Steffens 


S chon im AMIGA-Magazin in einer frühe¬ 
ren Ausgabe der Knobelecke [ 11 haben 
wir feststellen können, wie schwierig für 
unseren Computer der Umgang mit der deut¬ 
schen Sprache ist. Auf der Jagd nach Ana¬ 
grammen und Palindromen mußten wir versu¬ 
chen, uns im Dschungel aus Buchstaben und 
Wörtern zurechtzufinden. 

An dieser Stelle wollen wir uns wieder ins 
Buchstabenchaos stürzen! Im Mittelpunkt un¬ 
serer Aufgabe steht die sog. Wortkette - auch 
Wortleiter genannt. Diese Knobelei geht auf 
den »Rätselkomponisten« Lewis Caroll zurück 
und dürfte Denksportfreunden aus diversen 
Rätselbüchern oder Zeitschriften bekannt sein. 

Spiel mit Worten 

Es werden zwei beliebige Wörter einer 
Sprache vorgegeben, die durch Austauschen 
von jeweils nur einem Buchstaben eine Kette 
von sinnvollen Wörtern bilden sollen. Das Aus¬ 
gangswort wird auf diesem Weg - mit mög¬ 
lichst wenigen Schritten - ins Zielwort über¬ 
führt. Zur Veranschaulichung verwandeln wir 
einmal MÜLL in GELD: 

MÜ1I -> MOLL -> SOLL -> 

SOLD -> GOLD -> GELD. 

Wie kann man nun solche Wortketten bei ge¬ 
gebenen Anfangs- und Endwort mit dem Com¬ 
puter ermitteln? Hierzu sollen Sie ein Pro¬ 
gramm entwerfen, das immer den kürzesten 
Weg findet. 

Betrachten wir obige Wortkette genauer: Die 
Worte MÜLL und GELD unterscheiden sich 
an drei Positionen, es sind also mindestens drei 
Austauschoperationen nötig, um das Ziel zu er¬ 
reichen. Es läßt sich außerdem feststellen, daß 
mehr als drei Umwandlungsschritte zur Lösung 
der Aufgabe notwendig sind: Vertauschen Sie 
einfach die entsprechenden Buchstaben von 
Start- und Zielwort. Anschließend werden die 
neuen Wörter im Hinblick auf ihre Zulässigkeit 
untersucht. Für unser Müllproblem erhalten wir 
folgende Liste von Wörtern: 

GÜLL -> MELL -> MÜLD 
MELD -> GÜLD -> GELL. 

Eine Untersuchung der Liste zeigt die Un¬ 
zulässigkeit der Worte. Aber halt, vielleicht ist 
die Sache doch nicht so einfach! Es kommt bei 


der Zulässigkeitskontrolle auf die geeignete 
Wahl des Wortschatzes an. gell. Soll das Wort 
GELL verworfen oder als sinnvolles Wort zu¬ 
gelassen werden? Sicherlich werden viele Le¬ 
ser aus dem süddeutschen Sprachraum das 
Wort als »sinnvoll« empfinden, andere Leser 
werden hingegen nur mit dem Kopf schütteln. 

Damit der Aniiga die Aufgabe in Angriff 
nehmen kann, benötigt er zur Orientierung ein 
Wörterbuch. Der Autor war so leichtsinnig und 
hat eine Liste von Wörtern im ASCII-Format 
zusammengestellt, wir beschränken uns dabei 
auf Wörter der Länge 4. Die komplette Liste 
finden Sie auf unserer PD-Diskette zum Heft 
(s. Seite 114). Die Liste soll unseren zulässigen 
Wortschatz darstellen. Sie sollte eine brauch¬ 
bare Grundlage für Ihre Computerexperimen¬ 
te bilden. Selbstverständlich darf die Liste ent¬ 
sprechend dem persönlichen Geschmack er¬ 
weitert oder verändert werden. 

Sie finden auf der PD-Diskette auch ein BA- 
SlC-Programm, das sich mit einem Teilaspekt 
des gestellten Problems beschäftigt und Ihnen 


die Sache vereinfachen soll. Das Programm 
sucht zu einem Wort alle Wörter aus der Liste, 
die sich vom Ausgangswort an genau einer 
Stelle unterscheiden. Es wird sich bei Ihren 
Bemühungen sicher als nützlich erweisen. 

Hier nochmals die Aufgabe: Wer uns das in¬ 
teressanteste - dokumentierte! - Programm 
schickt, das zu zwei gegebenen Worten immer 
eine Querverbindung findet - basierend auf ei¬ 
nem festen Wortschatz in Form eines Wörter¬ 
buchs (ASCII-Datei) und möglichst schnell - 
gewinnt, neben dem üblichen Honorar für die 
Veröffentlichung, einen tollen Computerkoffer, 
gestiftet von v&r design. Also. Mitmachen 
lohnt sich. Viel Spaß und Glück. ■ 

Adresse: v&r design products GmbH. Platanenstr. 6.40233 Düsseldorf, 
Tel: 02 11/67 68 43: Fax: 02 11/67 69 46 

Literartur: 

111 Steffens. Gerald: Knobelecke "Wortspiele". 

AMIGA-Magazin 11/92 

(2) Uphoff. Matthias: "Das Software-Experiment”. 

PC Schneider fntemational I /87 + 4/87 

[3] Dewdney. Alexander Keewatin: "Verwandlungskünste mit 
Worten”, Computerkurz,weil 111 (Sonderheft 8). Spektrum der 
Wissenschaft 
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NochTi Gedicht 


Die nächste Ausgabe von »Faszination Pro¬ 
grammieren« ist bereits geplant. Anfang näch¬ 
sten Jahres wird es soweit sein. Als Schwer¬ 
punkte sind geplant: 

□ Alles rund um OS 3.0; 

□ Der 68030er und seine Geheimnisse; 

□ Programmierung der neuen Amigas; 

□ Programmierkurse in C und Assembler. 
Und natürlich wieder Tips & Tricks, tolle 

Tools und Knobeleien in Hülle und Fülle. 

Wenn Sie sich an der nächsten Ausgabe als 
Autor beteiligen möchten, schicken Sie Ihre 
Vorschläge an die Redaktion. Aber fackeln Sie 
nicht zu lange - die Zeit läuft. 


Schreiben Sie uns auch, wie Ihnen diese 
Ausgabe gefallen hat? Sind Sie mit der Mi¬ 
schung zufrieden, oder wollen Sie mehr zu As¬ 
sembler, C oder anderen Sprache lesen? Wie 
war's mit ARexx, C++ oder Oberon? Was 
wünschen Sie sich für die nächsten Ausgaben 
am meisten: Kurse, Tips & Tricks, Grundlagen. 
Knobelaufgaben oder, oder, oder? 

Unsere Adresse: 

AMIGA-Redaktion 
»Faszination Programmieren« 

Markt & Technik Verlag 
Hans-Pinsel-Str. 2 
85540 Haar hei München 



Nr.l gibts noch! 

Für alle, die unsere Erstausgabe verpaßt ha¬ 
ben, die gute Nachricht: Nummer I des Son¬ 
derhefts »Faszination Programmieren« kann 
jetzt wieder nachbestellt werden und zwar bei 
folgender Adresse: 

PVS Fulfillment 
74172 Neckarsulm 
Tel.: 0 71 32/9 69-181 
Fax: 0 71 32/9 69-190 



PD-Disketten zum Heft 


Muß man haben 


Unverbindliche Preisempfehlung: 3,90 Mark 


Bestellcoupon 

Bitte ausschneiden und absenden an: 

N. Erdern c/o AMIGA-Magazin PD • Postfach 10 05 18 • 80079 München 

Sie können auch per Telefon oder Fax bestellen: 

Tel.: (0 89) 4 27 10 39 Fax: (0 89) 42 36 08 


AMIGA-Magazin-Sonderheft 

Faszination Programmieren PD 2/93 

Lieferanschrift 


Name. Vorname 

(evtl Kunden Nr.) 

Straße, Hausnummer 



PLZ/Ort 


Zutreftende Diskette 
bitte ankreuzen 

Einzelpreis 


□ Disk 1 2/93 

pro Diskette: 


□ Disk 2 2/93 

3,yü UM 


□ Disk 3 2/93 

(bzw. 15.- tür alle 


□ Disk 4 2/93 

fünf Diskellen im 
Sammelangebol) 


□ Disk 5 2/93 



ges. Preis 



Bankleitzahl 


Konto-Nr. 


Inhaber 


Geldinstitut 


Gewünschte Zahlungsweise 
bitte ankreuzen: 

(Ausland nur gg. Vorkasse mit Euro¬ 
scheck zzgl. DM 10,- *) 

□ Scheck liegt bei zzgl. DM 7,- * 

LJ Bankabbuchung zzgl. DM 7,- * 

□ Ich möchte die fünf AMIGA- 
Sonderheft-Disketten zum 
Vorzugspreis von insgesamt 
15.- Mark bestellen. 

LJ Per Nachnahme zzgl. DM 12- * 

'Versand, Porlo 


Datum, Unterschrift (bei Minderjähngen des gesetzlichen Vertreters) 

(Bitte den Coupon nur vollständig ausgefüllt und gut lesbar einsenden. Achtung: Versandkosten¬ 
pauschalerhöhung aufgrund der neuen Portogebühren der Deutschen Bundespost ab dem 1. April 1993) 


Wie bei unserer Nummer I des Son¬ 
derhefts »Faszination Programmie¬ 
ren« gibts auch diesmal alle Listings 
und viele Extras auf PD-Disketten. 

Public Domain ist schon eine feine Sache: 
Für rund 5 Mark bekommt man eine Diskette 
voll mit Programmen, Tools ete... Und das 
Ganze darf kopiert werden und steht so jedem 
Amiga-Besitzer kostengünstig zur Verfügung. 

Und da wir wollen, daß auch alle Program¬ 
me aus diesem Sonderheft jedem Amiga-Be¬ 
sitzer zu Gute kommen, gibts alle Listings und 
Programme aus diesem Heft als Public Domain 
verteilt auf mehrere Disketten: 
fl Disk I enthält die in diesem Heft abge¬ 
druckten Listings sowie - im Falle von Com- 
pilersprachen und Assembler-die lauffähigen 
Programme . Zusätzlich finden Sie im Heft er¬ 
wähnte Listings und Programme, die für einen 
Abdruck zu lang waren, und ein kurzes Wör¬ 
terbuch im ASCII-Format. mit dem Sie die 
Knobelaufgabe von Seite 113 lösen können. 

□ Auf Disk 2 finden Sie den Installer von 
Commodore sowie zahlreiche im ARexx- 
Schwerpunkt ab Seite 84 erwähnte Libraries, 
fl Auf Disk 3 bieten wir Ihnen eine lauffähige 
Oberon-Demo mit der Sie die Oberon-Listings 
aus diesem Sonderheft übersetzen können. 

□ Disk 4 und 5 enthalten eine C++-Demo. 

Sie können natürlich auch noch die Disket¬ 
ten unserer Erstausgabe nachbestellen. Oder 
Sie besorgen sich die Disketten bei Ihrem PD- 
Händler oder über CompuServe (go mut). 
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DAS TRAUMBLATT 
ALLER PROGRAMMIERER 


Programmieren erfordert Werkzeuge, auf die 
man sich verlassen kann. MAXON ist seit 
Jahren der renommierteste deutsche Herstel¬ 
ler von Programmiersprachen und -Tools für 
den AMIGA. Dabei wird größter Wert auf 
Komfort, Schnelligkeit und Zuverlässigkeit 


gelegt. Das spiegelt sich in allen unseren 
Sprachen wieder. Sie garantieren schnelle 
Einarbeitung und effiziente Programm¬ 
entwicklung. 

Mit Programmiersprachen von MAXON 
haben Sie immer gute Karten. 


MAXON Computer GmbH • Industriestr. 26 • 65734 Eschborn »Tel.: 061 96 /48 1811 • Fax: 061 96/41 885 


■ alle Preise sind unverbindlich empfohlene Verkaufspreise 


Reizen Sie Ihren AMIGA aus! 


MaxonC/C** 

Diese Karte wirkt doppelt. Egal ob C 
oder 0* gespielt wird; sie ist der 
höchste Trumpf und läßt sich bei 
allen Gelegenheiten einsetzen. 

MaxonC/C ++li9ht 

Zweithöchste Karte im Spiel, nur die 
obige zählt mehr. Ideal zum 
Austesten und trotzdem stärker als 
alle anderen C-Karten. 


HotHelp 

Die Spezialkarte. Wirkt immer dann, 
wenn man nicht so recht weiß, was 
man spielen soll. 


KickPascal 

Der höchste Trumpf beim Pascal- 
Spiel. Ideal für alle Liebhaber des 
geordneten Spiels. 


MaxonASM 

Assembler ist das schwierigste 
Spiel. Wenn man diese Karte spielt, 
kann man jedoch locker gewinnen. 


Maxon C/C** V1.1 

Kombiniertes C und C" Entwicklungssystem. 
Komplett mit Editor, Compiler, Oberflächen¬ 
generator und HotHelp DM 398.-* 

Maxon C/C~ developer 
Die Profiversion. Zusätzlich mit Source-Level 
Debugger und ext. Assembler DM 598.-* 

Maxon C/C" light 

Einstiegsversion mit Editor und uneinge¬ 
schränktem Compiler DM 149.-* 

MaxonASM 

680x0-Assembler mit Editor, Reassembler, 
Monitor und Debugger DM 149.-* 

KickPascal 

Schneller Pascal-Compiler, sowohl für Profis 
als auch für Anfänger. DM 249.-* 

HotHelp 

Online Help-System mit der kompletten 
OS 2.1-Dokumentation DM89.-* 








Der Disk Expander lauft auf allen Commodore Amiga 500, 600. 1000, 1200, 2000, 2500. 3000 (T) und 4000 (T) unter Kickstart 1.2. 1.3. 2.0 und 3.0 mit oder ohne installierter Festplatte. 


a/SK EXPnnnER 


K0niPHE55l0nS-50F7W£lä£ OEH SPITZEHKUISSE 


iskExpander ist die Top-Neuheit für alle Amiga-User. Mit 
DiskExpander können Sie die Kapazität Ihrer Festplatte und 
Ihrer Diskettenlaufwerke etwa verdoppeln. Die Installation 
erfolgt in Sekundenschnelle und anschließend arbeitet der 
DiskExpander unsichtbar im Hintergrund. 

Die Daten werden auf ca. 30 bis 70% der ursprünglichen 
Größe reduziert und verschiedene Kompressionsalgorithmen 
stehen zur Wahl. 

Das geniale Programmkonzept sorgt dafür, daß auch 
Einsteiger den DiskExpander auf Anhieb optimal einsetzen 
können. Zur Installation, die weitgehend automatisiert erfolgt, 
benötigen Sie keinerlei Spezialkenntnisse. Der DiskExpander • 
erhöht nicht nur die Kapazität Ihrer Festplatte. Auch a® 
normalen Disketten können Sie im Durchschnitt ab sofort ca. 
1,5MB Software unterbringen, und selbst die RAD'-Disk 
können Sie problemlos verdoppeln. 

Kennen Sie eine besslfe Möglichkeit, Ihren Amiga für wenig # 
Geld sinnvoll zu erweitern? # 


ei der Entwicklung von DiskExpander wurde größtmög¬ 
licher Wert auf Datensicherheit, variable Kompression und 
gute Geschwindigkeit gelegt. Sie können selbst bestimmen, i 
ob Sie Ihre Daten hochgradig verdichten wollen, oder ob 
Ihnen mittlere Kompressionsraten ausreichen und haben 
somit direkten Einfluß auf die Geschwindigkeit. Selbst¬ 
verständlich können Sie auch Ihren bevorzugten xpk-Packer 
einsetzen. 

Insgesamt sieben Programmierer aus fünf verschiedenen 
Nationen haben entscheidend dazu beigetragen, diese 
technische Meisterleistung zu entwickeln. . 

DiskExpander wurde über einen Zeitraum von.mehreren 
» Monaten-weltweit von mehr als 100 Benutzern getestet und 
für gut befunden! • > 

# DiskExpander wird mit deutscher Benutzeroberfläche au$- 
# geliefert, kann auf drei verschiedene Arten installiert werden 
und wird auch in Zukunft ständig weiterentwickfclt. 

♦ 



Es wird dringend davor gewarnt, 
illegale Kopien von DiskExpander zu benut¬ 
zen, da diese in der Regel modifiziert wur¬ 
den und die Sicherheit Ihrer Daten in keiner 
Weise gewährleisten! • 






- 




Stefan Ossowski s Schatztruhe 
Gesellschaft für Software mbH 
Veronikastraße 33 
45131 Esssen 
Telefon 0201/788778 
Telefax 02 01/79 84 47 


DiskExpander SV ist eine^ßezielle Unpack-Only-Version. gp wir jede^ 
Softwareproduzenten in einem preiswerten Lizensierungsverfahren anbieten. So 
können Sie und Ihre Kunden von der innovativen DiskExpander-Technologie 
profitieren. Erfragen Sie gleichzeitig unsere vorteilhaften Bundling-Preise. 

The international Version of DiskExpander will be available soon and we are 
looking for additional distributors. Please send your requests by FAX and we will 
reply immediatly including further details. t 


Versandkosten 
Inland: DM 4,-V-Scheck 
DM 8,-Nachnahme 
Ausland: DM 8,-V-Scheck 
DM 25,-Nachnahme 

# 


















